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FORTRAN IV PROGRAM FOR CALCULATION OF THERMODYNAMIC DATA 
by Bonnie J. McBride and Sanford Gordon 
Lewis Research Center 

SUMMARY 

A FORTRAN IV program is described which (1) calculates thermodynamic functions 
(heat capacity, enthalpy, entropy, and free energy), (2) fits these functions to empirical 
equations, and (3) calculates, as a function of temperature, heats of formation and 
equilibrium constants. 

The program provides several methods for calculating ideal gas properties. For 
monatomic gases, three methods are given which differ in the technique used for trun- 
cating the partition function. For diatomic and polyatomic molecules, five methods are 
given which differ in the corrections to the rigid-rotator harmonic -oscillator approxima- 
tion. 

In addition the program provides for calculating thermodynamic functions for solids, 
liquids, and gases from empirical heat capacity equations. 


INTRODUCTION 

Numerous compilations of thermodynamic data are available (refs. 1 to 12). How- 
ever, there is a continuing need for additional calculations due to (1) discovery of new 
species, (2) revision of existing molecular constant data and structural parameters, 

(3) need for data at temperatures other than already published, (4) availability of new or 
revised heats of formation, dissociation, or transition, (5) revision of fundamental 
constants or atomic weights, and (6) preference for thermodynamic data in functional 
rather than tabular form. Calculations may also be needed to compare the results of 
assuming various possible forms of the partition function. 

For these reasons, a flexible FORTRAN IV program has been prepared for the 
IBM 7094 which can perform any combination of the following: (1) calculate thermo- 
dynamic functions (heat capacity, enthalpy, entropy, and free energy) for any set of 1 to 



200 temperatures, (2) fit the functions to empirical equations, and (3) calculate, as a 
function of temperature, heats of formation and equilibrium constants from assigned 
reference elements and/or from these elements in their atomic gaseous state. 

The thermodynamic functions for ideal gases may be calculated from molecular 
constant data using one of several partition function variations provided by the program. 
For monatomic gases, (1) one of three partition function cutoff techniques may be 
selected and (2) unobserved but predicted electronic energy levels may be included by 
the program. For diatomic and polyatomic gases, (1) one of five partition functions 
may be selected which differ in the correction factors for nonrigid rotation, anhar- 
monicity, and vibration -rotation interactions and (2) excited electronic states may be 
included. 

For the purpose of additional processing, known thermodynamic functions for 
solids, liquids, or gases may be (1) calculated from heat capacity equations or (2) read 
in directly from IBM cards. 

Because of the variety of options provided and the resulting variety of input data 
required, an objective was to provide for a relatively simple procedure for reading 
input data. This was accomplished by means of a uniform input format. 

The program and the equations used are described in detail. Examples of input and 
output are given for several typical species. 


CALCULATION OF IDEAL GAS THERMODYNAMIC FUNCTIONS 

For gaseous species, the thermodynamic functions may be calculated from spectro- 
scopic constants. A general discussion of methods of calculation is given in reference 3. 
Many of the equations will be repeated here for convenience. The properties are ex- 
pressed as functions of the internal partition function Q; that is, 

C p _ t 2 d 2 (ln Q) | 2T d(ln Q) ( 5 (1) 

R dT 2 dT 2 

TT O TjO 

H T ~ H 0 _ T d(lnQ) t 5 (2) 

RT dT 2 

— = T d ( ln + lnQ + -lnM + -lnT + S+- (3) 

R dT 22 2 
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( 4 ) 



RT 



9 = lnQ + — lnM+ — InT + S 

RT 2 2 c 


where 



(Symbols are defined in appendix A). 

The internal partition function Q in equations (1) to (4) is given by 

Q= E Q m ( 6 ) 

m=l 


m f Vi 

where Q is the internal partition function for the m electronic state and L is the 
number of electronic states. 


Internal Partition Functions for Monatomic Gases 


For monatomic molecules, internal energy consists of electronic energy only. 
Equation (6) then becomes 


L L 

Q = E Q“ = E 

i c 


(2.1 


-*n/ kT V 


/i . m 


(7) 


where Q™ J , e , and g are the electronic energy partition function, total angular 
6 m m ixj. 

momentum quantum number, electronic excitation energy, and statistical weight, 
respectively, for the m^ 1 electronic state. 

Cutoff methods . - An infinite number of bound states exists below the ionization 
limit for a hypothetical isolated atom (L = °o in equation (7)). Inasmuch as the partition 
function diverges and approaches infinity as L — °°, the summation must be cut off. 

A recent review of various cutoff methods is given by reference 13. These cutoff 
methods may be considered to be of the following types: 

(1) No dependence on temperature or pressure 
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(2) Dependence on temperature only 

(3) Dependence on temperature and pressure (or density) and possibly degree of 

ionization 

In the first of the three types, the summation may include various numbers of 
levels. For example, only the ground state is used in the Saha equation (see ref. 14). 
The summation of equation (7) may be over a fixed and usually arbitrary number of 
levels (such as for lithium in ref. 15 or for all species in ref. 11) or equation (7) may 
be summed through all observed levels (as in ref. 2, for example). 

The second cutoff type is temperature dependent. The ionization potential is re- 
duced by a quantity referred to as the "ionization potential lowering, " which in this case 
is a function of temperature only. The partition function is then permitted to include 
only those levels below the "lowered” ionization potential. Reference 16 suggested that 
the ionization potential be lowered by an amount equal to the temperature function kT. 
This suggested method was used in reference 3. Other temperature functions are sum- 
marized in reference 13. 

The first two cutoff types are distinguished by the fact that they permit the partition 
function and related thermodynamic properties to be calculated as functions of tempera- 
ture only. For the third type, it is not possible to calculate the partition function by 
specifying temperature only. One cutoff technique of this type relates the highest per- 
mitted principal quantum number n to the number of particles per unit volume (number 
density) such as suggested by Bethe (see discussion in ref. 13). Another technique uses 
the ionization potential lowering procedure previously described, but in this case the 
quantity by which the potential is lowered is a function of electron and ionized particle 
number densities. Several such quantities are summarized in reference 13. 

This last technique involves mixtures of species and therefore precludes, for all 
practical purposes, the possibility of generating tables for individual species as a func- 
tion of temperature only. This is due to the fact that the cutoff criterion needed to cal- 
culate the partition function depends on mixture composition, while the calculation of 
mixture composition depends on the partition function. Thus an iterative procedure is 
required where the partition function at a specified temperature may be changing from 
one iteration to the next. Consequently, only the first two cutoff types are considered 
in this report. 

Inclusion of predi cted levels . - In addition to the divergence problem, there is the 
problem of whether to include observed energy levels only or also to include levels for 
predicted terms which, so far, have not been observed. From atomic theory, as pre- 
sented in texts such as reference 17, predicted terms can be derived. Some of these 
terms are given in tables 10 and 11 in reference 17 and tables 5 to 20 in references 18 
to 20. An examination of the tabulated observed terms in references 18 to 20 shows 
that many predicted terms are missing, especially for the higher quantum numbers. 
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It has been shown that various series of levels can be represented by formulas such 
as the Rydberg or the Rydberg -Ritz formulas (e. g. , ref. 21). The constants in these 
formulas can be determined from known levels and used to extrapolate for the unobserved 
levels. However, the number of observed levels differ from species to species and, 
therefore, some judgment must be exercised in obtaining these constants. Thus, while 
in principle this technique of obtaining predicted, but unobserved, levels can be pro- 
gramed, in practice it amounts to essentially a special program for each species. 
Therefore, this technique was not considered further for this program. 

An alternate, but considerably simpler, technique for filling in unobserved levels, 
which gives essentially the same results for the partition function for many species as 
does the use of the Rydberg -Ritz equations, was included in the program. This alternate 
technique will now be described. 

By examining the statistical weights gj corresponding to predicted terms, it was 
determined that for at least the first 20 chemical elements, the sum of the statistical 
weights could be expressed by the following simple function of the principal quantum 
number n (except for the ground state n of most species) 


Atomic 

Chemical 

Constant in 

Sum of statis- 

number 

symbol 

equation (8), 
b 

tical weights 
for ground 
state, 
£ gi 

1 

Hydrogen 

2 

2 

2 

Helium 

4 

1 

3 

Lithium 

2 

8 

4 

Beryllium 

4 

13 

5 

Boron 

2 

6 

6 

Carbon 

12 

15 

7 

Nitrogen 

30 

20 

8 

Oxygen 

40 

15 

9 

Fluorine 

30 

6 

10 

Neon 

12 

1 

11 

Sodium 

2 

18 

12 

Magnesium 

4 

33 

13 

Aluminum 

2 

16 

14 

Silicon 

12 

75 

15 

Phosphorus 

30 

170 

16 

Sulfur 1 

40 

215 

17 

Chlorine 

30 

156 

18 

Argon 

12 

61 

19 

Potassium 

2 

32 

20 

Calcium 

4 

61 


£( 2J i + 0 = bn2 ( 8 ) 

Equation (8) applies only to terms arising 
from excitation of the emission electron 
and does not account for other possible 
terms. The table at the left lists (1) the 
derived constants b to be used in equa- 
tion (8) to obtain ^2 g^ for any n above 
the ground state and (2) £ Sj values for 
the ground state. 

The usefulness of equation (8) arises 
from the fact that the inclusion of an un- 
observed level generally makes consider - 
ably more difference than a small error in 
the estimated energy for this level. There 
fore, an option is provided in the program 
to determine for each n the difference in 
statistical weight sums between the ob- 
served levels which have been read in as 
input and that given by equation (8). The 
program then assigns to this difference the 
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highest observed level for the corresponding n and includes it with the observed levels. 

This method of ’’filling in” predicted, but unobserved, levels by means of equa- 
tion (8) was used to calculate the thermodynamic functions of the atomic species in ref- 
erence 3. 


Internal Partition Function for Diatomic and Polyatomic Molecules 

For diatomic and polyatomic molecules, Q m in equation (6) involves vibrational and 
rotational as well as electronic energy. In this report the following factored form is 
used to calculate Q m : 


Q m = Q^Q^gQ^Q^Q^Q 


m 

c 


or 


In Q m = In Q™ + In Qy + In Qg 1 + In Q“ + In Q™ + In Q™ + In Q“ (9) 

The quantities Q™, Qy , and Qg 1 are the electronic, harmonic -oscillator, and 
classical-rotation contributions to the partition function, respectively, as given in 
standard texts (see refs. 22 to 25). The remaining quantities in equation (9) are as 
follows: rotational stretching Q™ (ref. 25 or 26), low -temperature rigid rotation Qg 1 
(refs. 25 and 27), Fermi resonance Q^g (ref. 28), and both anharmonicity and vibration- 
rotation interaction Q*g (refs. 29 to 31). 

The program provides five methods of calculating the partition function which vary 
in the inclusion of and formulas for the correction terms (In Q™, In Q™, In Qgg and 
In Q™). This provision is made so that the results of the various methods may be com- 
pared. 

Table I contains detailed formulas for all the In Q m terms and their derivatives 
except those for In Q™ which are given in table n. The derivatives of In Q*g are not 
given directly as are the derivatives in table I. It was found to be considerably more 
convenient to express the derivatives of In Q*g by means of general formulas than to 
obtain the derivatives directly. These general formulas are given in a footnote of 
table n. 


EMPIRICAL EQUATIONS FOR THERMODYNAMIC FUNCTIONS 

Empirical equations for thermodynamic functions are often used for convenience. 
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These equations are usually based on the following form for heat capacity: 



Enthalpy and entropy are related thermodynamically to 

H T= a r +l + / C p dT 



C° as follows: 

lr 


( 10 ) 


(ID 


( 12 ) 


where a r+ ^ and & r+ 2 are integration constants. 

The program uses equations (10) to (12) in two ways, either in generating the 
coefficients a^ from a set of thermodynamic data using the least-squares technique 
given in reference 32, or conversely, in generating the thermodynamic data from the 
empirical equations. The least squares method differs from the usual least squares 
treatment in that it simultaneously fits heat capacity, enthalpy, and entropy. 


ASSIGNED ENTHALPY VALUES 


For some applications (see ref. 33) it is convenient to combine sensible enthalpy 
and energies of chemical and physical changes into one numerical value. An arbitrary 
base may be adopted for assigning absolute values to the enthalpy of the various sub- 
stances, inasmuch as only differences in enthalpy are measurable. For example, the 
arbitrary base selected in reference 3 was a value of zero at 298. 15° K (Hggg = 0) 
for a selected set of elements. This selection makes the assigned value, H^gg ^g, of 
any substance equal to its heat of formation at 298. 15° K from this set of selected 
elements. 


ASSIGNED REFERENCE ELEMENTS 

The designation of an element in a particular phase to be a reference element is 
needed in order that values of heats of formation and equilibrium constants be unam- 
biguously related to specific reactions. Some reference elements which are commonly 
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found in the literature are the following (see ref. 3): the inert gases, He, Ne, and Ar; 
the diatomic gases, H 2 , N 2 , 0 2 , F 2 , and Cl 2 ; and the condensed elements, Li(c, l ), 
Be(c,0, B(c,f), C(graphite), Na(c,z), Al(c,£), Si(c,£), P(c IV, c HI, l), and 
S(c II, cl, l) where c is a crystal phase and l is a liquid phase. Assigned reference 
elements used for the examples in this report were taken from this set. 


HEATS OF FORMATION AND EQUILIBRIUM CONSTANTS 


In the program described in this report, heats of formation and log K for a species 
are calculated as a function of temperature for two reactions. These reactions are for 
the formation of the species from the elements in either their assigned reference state 
discussed previously or in their atomic gaseous state. 

The following are examples of how these properties are calculated for CO(g) at 
1000° K: 

Relative to reference elements, 


AH 1000 " ( H 100(PcO(g) ‘ ( H 100(Pc (graphite) " \ (H 1000^0 2 (g) 


AF 1000" (F 100CpCO(g) " (F lOOtPc (graphite) “ ~ (F 1000 ) 0 2 (g) 


or relative to gaseous atoms, 


AH iooo - ( H ioocPco(g) “ ( H ioocPc(g) ~ ( H iooo)o(g) 
AF 1000 = ( F 100(PcO(g) ' ( F 100(Pc(g) " ^ F 1000^0(g) 


By definition, 


log 10 K = 


-AFr 


2.3025851 RT 


(13) 

(14) 

(15) 

(16) 

(17) 


COMPUTER PROGRAM 

The computer program was written for an IBM 7094 with 32 thousand core storage 
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and IBM 1403 printers with 132 print positions. FORTRAN tape 3 is used as a binary 
scratch tape. Input and output tapes are FORTRAN tapes 5 and 6, respectively. 

The program consists of a main routine and 17 subroutines written in FORTRAN IV 
and, in addition, five Lewis Research Center subroutines written in 7094 MAP assembly 
language. A listing of the FORTRAN program is given in appendix B and a discussion 
of the routines is given later. 

A listing and brief discussion of the five Lewis subroutines (named SKFILE, 
BCDUMP, BCREAD, IALS, and IARS) are given in appendix C. These MAP routines 
require version 13 IBSYS operating system. 


Availability to Other Organizations 

The source program decks will be made available on written request to the authors. 
The input data used for the examples in this report will be included for check out pur- 
poses. In addition, for use in calculating log K, the enthalpy and free energy data for at 
least the first 18 elements in their atomic gas as well as their assigned reference state 
will be included. These data are essentially those of reference 2. 

The following sections give a general discussion of the program. Included in this 
discussion are options, input, output, general flow of the program, and subroutines. 


Options 

The program provides a choice of several methods for calculating the thermodynamic 
functions C°, H° - H°, H° - H° 98 lg , S°, -(F° - H°), and -(F° - H° g8 15 ). For ideal 
gases, these functions may be obtained from one of several assumed forms of the parti- 
tion function or else from empirical equations. For solids and liquids, the thermo- 
dynamic functions may be calculated only from empirical equations. In addition, thermo- 
dynamic functions for any phase of a species may be read directly from cards for addi- 
tional processing. 

The program also has two other capabilities which are optional: (1) least-squares 
fitting of the thermodynamic functions to empirical equations (eqs. (10) to (12)) and 
(2) calculating heats of formation and log K values for the same temperature range as 
the functions. 

The following is a discussion of these optional features. 

Part ition functions - monatomic gases. - The partition function for monatomic 
gases is given by equation (7). The program permits three optional ways of terminating 
the number of energy levels L to be included in calculating this partition function. 
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These three options, indicated by their program code names given in capital letters, are: 

(1) ALLN - inclusion of all electronic levels in the input data, (2) FIXEDN - inclusion of 
all levels through a specified principal quantum number n, and (3) TEMPER - inclusion 
of all energy levels that are less than or equal to the ionization potential lowered by an 
amount kT (see section Cutoff met hods). 

With any of these three cutoff options, an additional option (FILL) is provided to 
include predicted but unobserved levels automatically (see discussion in the section 
Inclusion of predicted levels ). 

Partition functions - diatomic and polyatomic gase s. - For diatomic and polyatomic 
gases, the program provides for a selection of five methods of calculating the partition 
function which varies in the inclusion of and formulas for the correction terms (In Q^, 

In Qq, In Q^, and In Q c ) in equation (9). The formulas for the In Q terms included 
in each of the five methods are given in tables I and EL If certain spectroscopic con- 
stants are not available as input, the program automatically excludes those In Q terms 
involving them. The methods (with their program code names in parentheses) are as 
follows: 

(1) Rigid-Rotator Harmonic -Oscillator (RRHO) approximation - This method ex- 
cludes all the correction terms in equation (9) (i. e. , In Q^, In Q^, In Q^, and In Q c ). 

(2) Modified Pennington and Kobe (PANDK) method - The formulas given in table II 
for In Q c are similar to those given in reference 29. The method in this report is 
equivalent to the one described in reference 3 except for the formula for In (for- 
ula 6 in table I). All correction terms in equation (9) are included with the exception of 
the Fermi resonance In as indicated in table I. 

(3) Joint Army Navy Air Force (JANAF) method - This method is described and 

used in reference 2. For diatomic molecules, it is the same as the PANDK method 
except for the definitions of a^ and which are used in formulas 9 and 12, respec- 

tively, in table H. For polyatomic molecules, the JANAF method is the same as the 
RRHO method. 

(4) Nonrigid -Rotator Anharmonic -Oscillator 1 (NRRAOl) - In addition to the In 
and In terms, all the In Q c terms given in references 30 and 31 were included 
which do not contain a (c 2 /T)2 or (cg/T)^ factor. 

(5) Nonrigid -Rotator Anharmonic -Oscillator 2 (NRRA02) - This method includes 

the same In CD terms as NRRAOl with the addition of In Q terms from references 30 
C g c 

and 31 which contain (eg /T) factors. 

Thermodyn a mic functions from empirical equ a tions. - The routine for calculating 
thermodynamic functions from the empirical equations (eqs. (10), (11), and (12)) has the 
following features: 

(1) The value of r (number of coefficients ap may be any number from 1 to 10. 

(2) The temperature exponents q^ may be any positive or negative numbers or zero. 
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(3) Any number of sets of and may be read in for various temperature in- 
tervals for a particular species. 

(4) The integration constants, a r+1 and a r+ 2 may be read in or calculated by the 
program from the enthalpy and entropy values, respectively, for a specific temperature. 

(5) When a phase transition occurs, the integration constants, a r+ ^ and a r+2 for 
the second phase may be read in or calculated by the program from either the enthalpy 
or entropy of transition. 

(6) There is an option to punch on binary cards up to five coefficients and two inte- 
gration constants for each temperature interval. This option has been included in order 
to provide thermodynamic data in the form required by reference 33. 

Least-squares fit . - The least-squares routine fits the thermodynamic functions to 
equations (10), (11), and (12). The routine has the following features: 

(1) The value of r (number of coefficients a-) may be any number from 1 to 10. 

(2) The temperature exponents q^ may be any positive or negative numbers or zero. 

(3) An option is provided to permit the data to be divided into any number of speci- 
fied intervals from 1 to 9. The purpose in providing for several intervals is to increase 
the accuracy of the fit. 

(4) The equations for each temperature interval are constrained at an endpoint to 
fit either the original data or the values obtained from fitting an adjacent interval. The 
purpose of these constraints is to give equal values of the functions at the common point 
and thus avoid discontinuities between consecutive intervals. However, only one tem- 
perature may be specified in the input for which the fitted equations reproduce the 
original values. (If no temperature is specified, the program assigned 1000° K. ) 

(5) For two or more phases, the data for each phase is fitted separately and the 
equations constrained to fit the original data at the transition point. 

(6) For each temperature interval, up to five of the coefficients a^ plus the two 
integration constants will be punched on binary cards. These cards are made in order 
to provide thermodynamic data in the form required by reference 33. 

Heat of formation a nd log K values . - The program provides an option for calcu- 
lating heats of formation and log K values as a function of temperature for two reactions. 
The reactants for these two formation reactions are either monatomic gases or assigned 
reference elements (see sections Assigned Reference Elements and Heats of Formation 
and Equilibrium Constants). 

Heats of formation and log K values for a particular species can be calculated if 
the necessary enthalpy and free energy data for the reactants as well as for that species 
are available. Therefore the monatomic gases and assigned reference elements are 
processed first. For these reactants, there is an option to reserve the enthalpy and 
free energy data in two ways: (1) by writing the data on tape and (2) by punching the data 
on cards. The data on tape are saved only for use with other species being processed 
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during the same computer run. For later computer runs, the data on the binary cards 
may be read in as part of the input and, if so, are automatically put on tape. 

If there is a temperature in the data for a particular species which is not contained 
in the data on tape for the required reactants, the reactant data are interpolated using 
three -point Lagrangian interpolation. 


Input 

Types of data . - The input data are grouped into two categories; namely, general 
and specific. General data are read into storage and retained for use with any number 
of species to be processed in any particular computer run. Physical constants, atomic 
weights, and reactant enthalpy and free energy values fall into this category of input 
data. (See previous section. ) 

On the other hand, a set of specific data cards is required for each species to be 
processed. The data in each set are read, processed, and cleared before the next set 
is read. A set of specific data cards for a diatomic gas would contain the chemical for- 
mula; the method of calculation, such as PANDK; molecular data such as o> e , u> e x e , 
B g , and a Q ; desired options such as a least -squares fit or a special temperature 
schedule; and finally, a card to indicate the end of the set of specific data. 

Identification of cards . - All input cards will be referred to in one of the following 
three ways: 

(1) Most cards will be identified by the code word punched in card columns 1 to 6. 
For example, the input card containing physical constants has the code CONSTS in these 
columns. Thus, this card will be referred to as the CONSTS card. 

(2) The first card of a set of specific data cards has the chemical formula punched 
in card columns 1 to 12. This card will be referred to as a formula card. The word 
''formula” does not appear on the card. 

(3) Column binary cards containing enthalpy and free energy data for the reactants 
will be referred to as binary EF data cards. The word ”EF data” does not appear on 
the card. 

Uniform format . - All cards of types (1) and (2) are read with a single format which 
will be referred to as the uniform format. Format details are given in appendix D. 

Contents of i ndividua l cards. - A brief description of the contents of the individual 
cards is given in table III. (Detailed descriptions are given in appendix D. ) The right- 
hand column indicates which cards are optional. Table in indicates that the card code 
in card columns 1 to 6 is a mnemonic device which does one or more of the following: 

(1) Indicates what data are on the card (i. e. , CONSTS, ATOM, EFDATA, TEMP, 
LSTSQS and DATA) 
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(2) Indicates an option discussed in the section Options (i. e. , LOGK, LSTSQS, 

EFTAPE, and METHOD) 

(3) Identifies the data on the binary cards which follow it (i. e. , EFDATA) 

(4) Calls for some intermediate output (i. e. , LISTEF and INTERM) 

(5) Identifies the input data sources (i. e. , REFNCE) or gives a date (i. e. , DATE) 

(6) Indicates the end of a set of specific data (i. e. , FINISH) 

General Flow of Program 

The general flow of the program is given in figure 1. For convenience in locating 
various sections of the FORTRAN program, 79 location numbers, referred to as CIO, 
C20, . . . , C790, were included as comments in the program. Some of these location 
numbers are also shown in figure 1. Subroutine names are given in parentheses. 

From figure 1, the following are evident: 

(1) Each card (except for the binary EF data cards) is read and listed. The flow 
is directed according to the code in card columns 1 to 6, 

(2) The general data storage is cleared only at the beginning of each computer run. 
Thus, these data are retained as they are read in. 

(3) The order of the general data is immaterial except for the fact that the EFDATA 
and binary EF data cards must remain in sets for each reactant. 

(4) The specific data (including options) are cleared at the beginning of the program 
and after each FINISH card. 

(5) There may be any number of sets of specific data - each having any combination 
of options. 

(6) The order of the optional cards (EFTAPE, LOGK, LSTSQS, INTERM, DATE, 
and REFNCE) in the specific data is immaterial. 

(7) The temperature schedule (TEMP cards), if not the standard 100 (100) 6000° K, 
must be read before the METHOD card. 

(8) The DATA cards must follow the METHOD cards. 

(9) Any card which is not recognized by the code in card columns 1 to 6 is assumed 
to be a formula card. 

(10) From the chemical formula, the following items are determined by the program: 

(a) the molecular weight 

(b) the phase of the species 

(c) the number of atoms (i. e. , whether species is monatomic, diatomic, or 

polyatomic) 

(11) The Hq value may be calculated from an assigned value at any temperature or 
a heat of reaction (see formula card in appendix D). (The Hq value is used in calcu- 
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lating AH^ and log K and the integration constants a r+ j ( e Q- (H))- 

(12) Thermodynamic functions are calculated immediately after the DATA cards are 
read. 

(13) After the FINISH card is read, Hq is calculated, the least -squares fit option is 
checked, tables of thermodynamic functions are listed, and the AH^, and log K option 
is checked. 

(14) General data may be modified or added following any FINISH card. If a second 
CONSTS card, ATOM card for a particular atom, or a second set of EFDATA and binary 
EF data cards for a particular reactant is read, the data on these cards will be used for 
succeeding calculations. 

(15) With an EFTAPE option card in a set of specific data, EFDATA and binary 

EF data cards are punched and the data are put on tape. The data on tape will be avail- 
able for use with any succeeding calculations in the same computer run. 

(16) Any number of sets of METHOD and corresponding DATA cards may be read for 
a set of specific data. This is useful for species with more than one phase in the tem- 
perature range of interest. For example, the thermodynamic functions for the solid 
may be read in directly while the liquid data may be obtained from empirical equa- 
tions. The data for both phases will appear in the same listed tables of the thermo- 
dynamic properties. 

A feature of the program which is not indicated in the flow diagram is that contribu- 
tions of excited electronic states may be included in the calculation of the thermodynamic 
functions for diatomic and polyatomic gases. There may be any number of states, each 
having its own set of molecular constants. This is accomplished by grouping the DATA 
cards for each state together with a code number in card columns 79 and 80. The values 
of Q m , T dQ m /dT, and T^ d^Q m /dT^ are calculated after the DATA cards for each 
state are read. These values are summed as they are calculated. 


Output 

A brief description of punched card and listed output is given in this section; a de- 
tailed description is given in appendix E. 

Punched card output . - Cards are punched with certain options as indicated by the 
following: 

(1) With an EFTAPE specific data card, an EFDATA card and binary EF data cards 
are punched. 

(2) With a LSTSQS card, column binary cards are punched which contain the chemi- 
cal formula of the species, the temperature intervals, and the least -square coefficients 
(eqs. (10) to (12)). 
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(3) With DATA cards which contain coefficients (eqs. (10) to (12)) as well as a 
TPUNCH code, the coefficients will be punched in the same format as item (2). (The 
TPUNCH code is described in appendix D and its uses illustrated in example 5, appen- 
dix F. ) 

Listed output . - The following data are always listed: 

(1) The contents of all input cards in the uniform format 

(2) Table of T, C°/R, (H° - Hq)/RT, (H° - H° g8 15 )/RT, S° /R, -(F° - H^/RT, 

-(F° -Hg 98 15 )/RT, H°/RT, and -F^/RT 

(3) Table of T, C°, H° - H° H° - H° Q8 ^ S° , -(F° - hJ), -(F° - H° g8 15 ), 

H^, and -F° 

The following data are listed only with the indicated options: 

(1) With a LISTEF card, the contents of the binary EF data cards are listed. 

(2) With an INTERM card included in the specific data of a particular species, 
intermediate data are listed as detailed in appendix E. 

(3) With a LSTSQS card, the following data are listed for each temperature interval 
fitted: 

(a) The thermodynamic functions (both the original and those obtained from the 

least -squares fit 

(b) The errors between the original and the fitted data 

(c) The least-squares equation for heat capacity and the integration constants 

(eqs. (10) to (12)) 

(d) The contents of the punched binary cards (see item (2) in the section 

Pun c hed card output ) 

(4) With a LOGK card, two tables are listed: 

(a) Table of T, C°/R, (H° - H g )/RT, S°/R, -(F° - H°)/RT, H°/RT, -F°/RT, 

and AH^/RT and -AF^,/RT for formation of the species from both 
assigned reference elements and monatomic gases 

(b) Table of T, C°, H^, - H g , S° , -F° , and AH° and log 1() K for the same 

reactions as the previous table 

Examples 

Sample problems with punched card input and listed output are given in appendix F. 
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Main Routine and Subroutines 


The FORTRAN listing in appendix B has a number of comments to indicate the oper - 
ations of various sections of the program as well as location numbers CIO, C20, . . . , 
C790. A short description of each subroutine follows. 

PAC1(C10 to C60). - This is the main routine and directs the general flow of the 
program as given in figure 1 and discussed in the section General Flow of the Program. 
Subroutines called by PAC1 are indicated in figure 1 in parenthesis in or near the ap- 
propriate boxes. 

INPUT(C70) . - This routine reads and lists all cards that have been punched in the 
uniform format. The output format for listing numerical values is varied according to 
the size of the numbers. 

P AGEID(C80 ). - This routine lists the chemical formula at the bottom of a page in 
the output listing and skips to a new page. The program allows approximately 55 lines 
to be printed on a page. 

EFTAPE(C90 to C130). - This routine (1) reads binary EF data cards, (2) punches 
new sets of EFDATA and binary EF data cards, and (3) stores these data on tape. 

IDENT(C140 to C160). - This routine analyzes the chemical formula on either the 
formula card or the EFDATA card. It separates and stores each chemical symbol and 
corresponding number of atoms in the chemical formula. The chemical symbols are 
matched in the SYMBOL array and corresponding indexes are stored. 

When analyzing a chemical formula from a formula card, the molecular weight is 
calculated. 

TEMPER(C1 70 to C 180) . - This routine stores the temperature schedule as given 
on one or more TEMP cards. It is called from PAC1 after a TEMP card has been read. 

RECO(C19Q t o C250). - This routine processes the METHOD and DATA cards for 
methods READIN and COEF. The routine is called from PAC1 after a METHOD card 
has been read with either a COEF or READIN code. The RECO routine calls INPUT to 
read the DATA cards plus the next card. 

For READIN, the thermodynamic functions on each card are simply stored. For 
COEF, the thermodynamic functions are calculated and stored. 

The RECO routine is also used to relate the enthalpy of two phases of the same 
species by means of an enthalpy or entropy of transition. One of these transition values 
is given on the METHOD card of the second phase (DELTAH or DELTAS code described 
in appendix D) and used to calculate the enthalpy of the second phase at the transition 
temperature. The free energy value of the second phase is taken to be equal to the 
free energy value of the first phase at the transition temperature. 

If a transition is present, the routine calls DELH (discussed in the section DELH 
(C510 to C530)) to check for the options of least-squares fit or punching coefficients for 
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the first phase. 

ATOM(C260 to C3JL0). - This routine calculates thermodynamic functions for 
monatomic gases. 

The routine calls INPUT to read all DATA plus the next card. The J values, 
which are read with an alphanumeric format, are changed to floating point numbers and 
stored. 

Energy levels are sorted in order of increasing energy values. The number of 
levels included in the calculations is determined by the cutoff method (ALLN, FIXEDN, 
or TEMPER) given on the METHOD card. Predicted but unobserved levels will be in- 
cluded with the FILL option. 

POLY(C32Q to C410 ). - This routine calculates thermodynamic functions for 
diatomic and polyatomic gases. 

Subroutine INPUT is called to read the DATA cards plus the next card. Subroutine 
LINK1 is called to calculate the partition function according to the method specified 
(RRHO, PANDK, JANAF, NRRAOl, or NRRA02). 

If more than one electronic state is present, the various states are identified by a 
code in card columns 79 to 80. In this case, DATA cards for only one state at a time 
are read in and stored. The partition function for each state is calculated prior to 
processing DATA cards for the next state. 

LINK1(C420 to C480) . - This routine calculates the partition function for diatomic 
and polyatomic molecules. The formulas given in tables I and II are evaluated according 
to the method specified. 

The routine is called from subroutine POLY. LINK1 in turn calls two subroutines, 
DERIV to calculate the derivatives of the partition function and QSUM to keep a running 
total of the various contributions to the partition function. 

K D(C480) . - This function subprogram calculates Kronecker delta. 

DERIV(C490) . - This routine calculates the derivatives of the partition function 
using the method given in the footnote of table H. The routine is called from a number 
of places in LINK1. 

QSUM (C500) . - This routine keeps a running total of all, except translational, con- 
tributions to the partition function and its derivative for each electronic state. These 
contributions are listed if an INTERM card has been included in the input. 

QSUM is called from a number of places in LINK1. 

DEL H(C510 to C530 ). - This routine calculates the Hq value, calls LEAST for the 
least -squares fit option, and calls PUNCH for the option of punching coefficients read 
with the COEF method. The information given on the formula card (AH^ of formation, 
D^,, H^,, T) is used in calculating the Hq value. 

The routine is called from PAC1 after the FINISH card has been read. However, it 
will also be called from RECO for phase transition points. In this latter case, any 


17 


processing (the Hq calculation, the least-squares fit, or the punching of coefficients) 
will be for the species phase coming ahead of the transition point in the input. For ex- 
ample, for a species with input data for the solid followed by the liquid, DELH will 
process the solid when it has been called from RECO. The liquid will be processed 
when DELH is called from PAC1. 

TABLES(C 540 to C570). - This routine lists tables of thermodynamic functions as 
discussed in appendix E. The output format varies depending on the availability of the 
following values: ( 1 ) the H^gg ^ - Hq value which is required in obtaining 

H^, - Hggg 15 and -(F^ - H^gg and ( 2 ) the Hq value which is required in ob- 
taining Hip and -F^,. 

LOGK(C58 Q to C650). - This routine is called only if a LOGK option card has been 
included in the input. It calculates AH^,/RT, AH^, -AF^,/RT, and log K for the forma- 
tion of the species from the assigned reference elements and the monatomic gases. The 
required enthalpy and free -energy data for these reactants have been stored on tape by 
the EFTAPE subroutine. 

The LOGK routine lists two tables of properties as detailed in appendix E. If any 
reactant species for either of the formation reactions is not on tape, the appropriate 
columns in these tables are left blank. 

LEAST(C660 to C 760). - This routine is called from DELH only if one or more 
LSTSQS cards have been included in the input. It calculates the least -squares coeffi- 
cients, lists certain information detailed in appendix E, and calls PUNCH to punch the 
coefficients on cards. 

PUNCH(C770 to C790). - This routine punches binary cards containing the coeffi- 
cients obtained either from a least-squares fit or from the DATA cards associated with 
method COEF. For these two options, PUNCH is called from subroutines LEAST and 
DELH, respectively. 

The contents of each card are listed in the order they are punched. See output de- 
tails in appendix E. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, February 14, 1967, 

129-01-02-01-22 
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APPENDIX A 


SYMBOLS 


A e’ B e> C e 

A 0’ B o> c o 


a. 

1 


r+l 

l r+2 


c 

c 2 

d,d € 

D n , D 


O’ "OOO 
D° 

d i 

thO 

f t 

f t ■ H o 

•pO trO 

*T ""298.15 


g^g 


m 


g 


li 


H 


Hn 


IjO ttO 

h T ' "0 

TT° TjO 

"T ~ "298.15 


rotational constants corresponding to equilibrium separation of atoms 

rotational constants for lowest vibrational state 

polynomial coefficients used in eqs. (10) to (12) 

integration constant defined by eq. (11) 

integration constant defined by eq. (12) 

constant defined in eq. (8) 

heat capacity at constant pressure for standard state 
velocity of light or crystal phase of chemical substance 
second radiation constant, hc/k 
spectroscopic constants for rotational stretching 
rotational stretching constants for lowest vibrational state 
dissociation energy at temperature T for standard state 
degeneracy associated with i/. 

(F° - H°) + Hg 

sensible free energy at temperature T relative to 0° K for standard state 

sensible free energy at temperature T relative to 298. 15° K for standard 
state 

electronic statistical weight 

anharmonicity constant for doubly degenerate vibrations in linear mole- 
cules 

chemical energy at 0° K for standard state 
(H° - Hg) + Hg 

sensible enthalpy at temperature T relative to 0° K for standard state 

sensible enthalpy at temperature T relative to 298. 15° K for standard 
state 

Planck’s constant 
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*A> *C 

J i’ J m 
K 

k 

L 


l 

M 

N c 

n 


P 


Q 

Q 

Q 


m 

m 

c 


Q 

Q 

Q 

Q 


m 

e 

m 

H 

m 

V 

m 

W 


Q 


m 

P 



<*i 

R 


r 



principal moments of inertia 
total angular momentum quantum number 
equilibrium constant 
Boltzmann constant 

total number of electronic energy states 
liquid phase of chemical substance 
molecular weight 
Avogadro’s constant 

number of unique frequencies or principal quantum number 
partial pressure 
internal partition function 

internal partition function for m L electronic state 

correction factor to the partition function for anharmonicity and vibration- 

th 

rotation interaction for m electronic state 
electronic partition function for m^ electronic state 
classical-rotation partition function for m l electronic state 

i-L 

harmonic -oscillator partition function for m l electronic state 

Fermi resonance correction factor to partition function for m l electronic 
state 

low temperature rotational correction factor to partition function for m^ 1 
electronic state 

1L 

rotational -stretching correction factor to partition function for m l elec- 
tronic state 

temperature exponents in eq. (10) 
universal gas constant 
number of coefficients a^ in eq. (10) 
constant defined by eq. (5) 
entropy for standard state 
temperature, °K 

electronic excitation energy between lowest vibrational states (v = 0) of 
ground and excited state for diatomic and polyatomic gases 
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u i 

V,Vi 

W 0 

X ij’ y ijk 
<V a i 


a ? o?.. 
u i 7 u i ’ a i ’ lj 

e 


m 


P 

a 

0J 


0> X . CO V , ooz 

e e ? e J e ? e e 


c 2 / T 

vibrational quantum number 
Fermi resonance constant 

anharmonicity constants for polyatomic molecules 

vibration -rotation interaction constants for diatomic and linear 
polyatomic molecules 

vibration -rotation interaction constants for polyatomic molecules 

rotational-stretching - vibration interaction constant 

energy of m 1 electronic state 

observed fundamental frequency 

rotational-stretching spectroscopic constant 

symmetry number 

zero -order vibrational frequency for diatomic molecule 
anharmonicity constants for diatomic molecules 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

CIO 

c 


TESTC 3) 
TESTC4) 
TEST! 5) 
TESTC 61 
TESTC 7 ) 
TEST 189 
TESTC 9 ) 


APPENDIX B 

FORTRAN LISTING (FORTRAN ROUTINES) 

MAIN PROGRAM - PAC1 
TESTC II LIST EF DATA 

SPECIES IS AN ION. 

SPECIES IS A GAS. 

SPECIES IS A LIQUID. 

SPECIES IS A SOLID. 

SUBROUTINE HFTAPE IS CALLING SUBROUTINE IDENT. 

AN ASSIGNED H IS AVAILABLE 

CP/RfH— HO/RT « AND S/R ARE READY TO BE OUTPUTTED 
TESTC 101 SPECIES TO BE REACTANT. PUNCH EF DATA AND WRITE ON TAPE. 
TESTC 121 LOG K CALLED FOR 

TESTC 131 DATA ARE IN THE FORM, H-H 298 AND -CF-H298I 

TESTC 141 INTERMEDIATE OUTPUT CALLED FOR 

TESTC 15) LEAST SQUARES CALLED FOR 

TESTC 16) ERROR IN INPUT. GO TO NEXT SPECIES 

TESTC 171 PUNCH READ-IN COEFFICIENTS 

TESTC 18) ENTHALPY IS ABSOLUTE 

TESTC 19) SPECH IS SET 

TESTC 20) TEMPERATURE SCHEDULE HAS BEEN STORED 

COMMON NAME C 2 ) , SYMBOL! 70) * ATMWTC70) *R *HCK, NEL , I CARD, I WORD! 5 ) • 

1 WORD!*), TESTC 20 ) , WE IGHT ,FQRMLA C5 ) , ML AC 5 I , BL ANK, ELEMNT C 70 ) , 

2 N ATOM, NT,CPRC202), HHRT C 202 ) , ASI NDH, TC202) »ASINDT , FHRT C 202 ) • 

3 SC ON ST, NOATMS ,MPLACE C70),LPLACE(70) , NMLAC70) , NDFILE, 

4 SPECH, TAPE! 606 1 * PTMELT,EXPC 10) ,TRANGEC 10) , TCONST , NKI ND, 

5 NF, LINES, I TR,NTMP, AGC 70 ),GGC70),NIT,PI ,H290HR , IHEAT, JFC 5 ) 


INTEGER FQRMLA, SYMBL , SYMBOL, 

ELEMNT 

PAC10031 

LOGICAL TEST 


PAC 10032 

EQUIVALENCE ( X, I X ) 


PAC10033 

PAC10034 

ITIALIZE ONCE. 


PAC10035 

WRI TEC 6, 3 ) 


PAC10036 

FORMAT! 1HII 


PAC10037 

TESTC 1) * .FALSE. 


PAC 10038 

R - 0 


PAC 10039 

HCK * 0 


PAC10040 

NEL * 0 


PAC10041 

REWIND 3 


PAC 10042 

END FILE 3 


PAC 10043 

NATOM * 0 


PAC 10044 

NOFILE * 0 


PAC 10045 

00 32 I * 1,106 


PAC10046 

MPLACEC I ) * 0 


PAC10047 

LPLACEC I ) * 0 


PAC10048 

NMLAC I ) * 0 


PAC 10049 
PAC10050 

[ T I AL I Z AT ION FOR EACH SPECIES. 

FOLLOWS FINISH CARD . 

PAC10051 

DO 101 1*1,10 


PAC10052 

EXPCI) * 0.0 


PAC10053 

TRANGEC I ) * 0.0 


PAC10054 

TCONST * 0.0 


PAC 10055 

DO 109 I * 3,20 


PAC10056 

TESTC I ) * .FALSE. 


PAC10057 

LOATE * 0 


PAC10058 

NAME! 1 ) * IBLNK 


PAC10059 

NAME! 2 ) * IBLNK 


PAC 10060 

IHEAT * IBLNK 


PAC 10061 

TINTVL * 0.0 


PAC10062 

NT * 0 


PAC 10063 

NIT * l 


PAC 10064 

NTMP * l 


PAC10065 

NNN * 1 


PAC 10066 

ASINDT * 0.0 


PAC10067 

ASINDH * 0.0 


PAC 10068 

SPECH * 0.0 


PAC10069 

H298HR * 0 


PAC10070 

LEVEL * 1 


PAC10071 

NTC* 0 


P AC10072 

NPR * 0 


PAC 10073 

I EX * 0 


PAC10074 

ITR * 0 


PAC10075 

NF * 0 


PAC 10076 

NF 1 * 1 


PAC10077 

DO 102 1*1,202 


PAC10078 
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n n 


102 T« 11-0.0 PAC10079 

PI * 0. PAC10080 

PTMELT - 0.0 PAC 10081 

DATA I TEMP/4HTEMP /* METH0D/6HMETH0D/* IHFTAP/6HHFTAPE/, LSTS0S/6HLSTSPAC 10082 
10S/« ILGK/4HLQGK/, IREF/6HREFNCE/, I F I NSH/6HFI NISH/ , I NTERM/6HI NTERM/ PAC 10083 
DATA I AT0M/4HAT0M/ • ICONST /6HC0NSTS/* I SC0NS/6HSC0NST/ , I R/ 1HR/ , PAC10084 

DATA IBLNK /1H /. I DATE/4HDATE/,N0LEA S/6HN0LEAS/ ,1 HCK/3HHCK/, PAC10085 

1 IHFDAT/6HHFDATA/»IEFDAT/6HEFDATA/,IEFTAP/6HEFTAPE/,LIST/6HLISTEF/ PAC10086 

PAC10087 
PAC 10008 
PAC 10089 
PAC 10090 
PAC10091 
PAC10092 
PAC 10093 
PAC 1009* 
PAC10095 
PAC10096 
PAC 10097 
PAC 10098 
PAC10099 
PAC10100 
PAC 10101 
PAC10102 
PAC10103 
PAC 10104 
PAC 10105 
PAC 10 106 
PAC10107 

IF CC 1-6 CONTAIN NO RECOGNIZABLE CODE, ASSUME CARD CONTAINS FORMULA PAC10108 


C 
C20 

C CALL INPUT TO READ AND WRITE CONTENTS OF ONE INPUT CARD 


104 CALL INPUT (LINES) 

194 IFI ICARD.EO.IFINSHIGO TO 111 
IFI ICARD.EO. LIST) GO TO 2 
IFI ICARD.EO. I NTERM) GO TO 209 
IFI ICARD.60.IDATE I GO TO 205 
IFI ICARD.EO. ITEMP1 GO TO 105 
IFI ICARD.EO. METHODI GO TO 107 

IFI ICARD.EO. IHFTAP .OR. ICARD. EQ. I EF TAPI GO TO 110 

IFI ICARD.EO. ILGKI GO TO 319 

IFI ICARD.EO. IREFI GO TO 104 

IF (ICARD.60.N0LEASI GO TO 106 

IFI ICARD.EO.LSTSOS I GO TO 180 

IF I ICARD.EO. I ATOM I GO TO 13 

IF I ICARD.EO. ICONSTI GO TO 5 

IF (ICARD. EO.IHFDAT .OR. ICARD. EO. I EFDAT 1 GO TO 147 


CALL IDENT TO ANALYZE FORMULA 
CALL IDENT 

IF (TEST! 161 I GO TO 152 

DATA I DELH/6HDELTAH/, I D I S/6HD I SSOC /, I ASH/6HAS INDH/ , I HT/1 HT/ 
DATA INVCM/5HINVCM/ *KCAL /4HKCAL/, I EV/2HEV/, J0ULES/6H JOULES/ 
DATA ICAL/3HCAL/, IP/2HIP/* I PAT0M/6HI PA TOM/, IHF298/5HHF298/ 

STORE HEAT OF REACTION AND ASSIGNED T FROM FORMULA CARD 
DD 121 I * 2,4 

IF I IWORDUI.EO.IDELH .OR. I WORD! 1 1 .EO. IDISI GO TO 122 

IF I IWORDI II.EO.IASH) GO TO 122 

IF ( IWORDI II. E0.IHT1 ASINDT - WOROIII 

IF ( IW0RDII1.E0.IHF298I GO TO 125 

IF I I WORD (I). EO .IP) PI * WOROIII 

IF I IWORDI I I.AlE.I PA TOM I GO TO 121 

IHEAT * ID IS 

ASINDH = -WORD! I) 

GO TO 121 

125 IHEAT * I ASH 
ASINDT * 290.15 
GO TO 126 

122 IHEAT = IWORDII I 

126 ASINDH * WORD! I ) 

121 CONTINUE 

IF ( IHEAT. NE. IBLNK. AND. ASINDT. EO.O. I TE ST! 191 *. TRUE. 

IF I IHEAT. EO.IASH. AND. ASINDT. EQ.O. I TEST 18) - .TRUE. 

CONVERT HEAT OF REACTION TO PROPER UNITS IF NECESSARY. 

CON V * 1. 

DO 123 I * 2,4 

IFI IWORDII). EO.INVCM I CONV * 2.85927 
IF! IWORDII ). EO.KCAL) CONV * 1000. 

IFI IWORDI II .EQ.IEVI CONV * 23063. 


PAC10109 
PAC10110 
PAC10111 
PAC 10112 
PAC101 13 
PAC 10114 
PAC 10115 
PAC10116 
PAC10117 
PAC101 18 
PAC10U9 
PAC10120 
PAC 10121 
PAC10122 
PAC10123 
PAC10124 
PAC10125 
PAC10126 
PAC10127 
PAC10128 
PAC 10129 
PAC10130 
PAC10131 
PAC 10132 
PAC10133 
PAC10134 
PAC10135 
PAC10136 
PAC10137 
PAC 10138 
PAC10139 
PAC10140 
PAC10141 


IFIR.GT .8.0.AND.I I WORD III.EO.ICAL. OR. CONV. NE. 1.1) C0NV*C0NV*4. 184 PAC10142 


IFIIWORDIII.EO. JOULES .AND. R.LT.2.) CONV * 1./4.184 
123 CONTINUE 

ASINDH * ASINDH+CONV 
GO TO 104 
C 

C30 

C STORE GENERAL DATA 


2 TEST! 11 * .TRUE. 

GO TO 104 

DATA L TRON/6HOOOOOE /, 

13 X - AND (MASK, IWORDII) I 

IF I I X .EO • I WORD I 11 1 GO TO 20 
SYMBL * I ARSI 24, IWORDI 1 1 I 
GO TO 21 


MASK/0776077777777/ 


PAC 10143 
PAC10144 
PAC10145 
PAC 10 146 
PAC10147 
PAC10148 
PAC 10149 
PAC10150 
PAC10151 
PAC 10152 
PAC 10153 
PAC10154 
PAC10155 
PAC10156 
PAC 10157 


52 


95 


173 


23 



o o 


176 


20 SYMBL = IARSI30*I WORD (1)1 
IF (NATOM. EQ.O) GO TO 33 

21 DO 30 IND - 1 • NATOM 
IF ( SYMBL • EQ. SYMBOL (IND)) GO TO 35 

30 CONTINUE 
33 NATOM - NATOM •§» 1 
IND = NATOM 
SYMBOL ( IND I = SYMBL 
35 ATMWT(INO) * W0RDC1I 
ELEMNT ( IND I = IW0R0I2) 

IF (SYMBL. EQ.LTRON) NEL * IND 
AG( INO I = WORD (2) 

GGUNDJ = WORD( 3) 

GO TO 104 
5 DO 14 1*1*4 

IF< IWORDI U.EQ.IR) R*WORD ( I ) 

IF ( IWORDm.EQ.IHCK) HCK=WORD(I) 

IF ( 1 WORD ( I ) .E0.1 SCONS) SCONST = WORDII) 

14 CONTINUE 
GO TO 104 
147 CALL EFTAPE 
GO TO 104 

STORF OPTIONS. SEE C60 FOR LSTSOS OPTION. 

205 DO 206 I J -1«4 

I F € IWDRDI I J ) *NE • I BLNK ) LDATE = IWORO(IJ) 

206 CONTINUE 
GO TO 104 

209 TEST ( 14) = .TRUE. 

GO TO 104 

110 TEST! 10) = .TRUE. 

GO TO 104 

105 CALL TEMPER ( NT* TINTVL , T, I WORD , WORD I 

TEST ( 20 I = .TRUE. 

GO TO 104 

319 TEST ( 12 ) = .TRUE. 

GO TO 104 

106 TEST ( 15) = .FALSE. 

ITR = 0 
NF = 0 

DO 2106 1=1,10 

EXP ( I) = 0. 

2106 TR ANGE ( I) = 0 
TCONST = 0. 

GO TO 104 
C 

C40 

C METHOD CARD HAS BEEN READ. 

C 

107 DO 2000 I = 1*4 

DATA I RE AD/6HREA0IN/, ICOEF / 4HC0EF / 

IF( IWORDC I) .EO.IREAD.OR. I WORD ( I) . EO . ICOEF ) ICARD= IWORD(I) 
IF< IWORDC U.EO.IPIPI = WORDII) 

2000 CONTINUE 

IF ( R.EO.O. ) GO TO 150 

IFl TEST( 20) .OR. ICARD.EO. I READ ) GO TO 130 
C 

C STORE STANDARD T SCHEDULE IF NO TEMP CARDS HAVE BEEN READ. 

T ( 1 ) = 100.0 
T ( 2 ) = 200.0 
T I 3 ) * 298.15 
TI4) = 300.0 
DO 131 NT = 5*61 
131 TINT) * TINT-ll + 100.0 
NT =61 
C 

C CALL RECO FOR READIN OR COEF METHODS 

C CALL ATOM FOR MONATOMIC GASES 

C CALL POLY FOR OIATOMIC OR POLYATOMIC GASES 

130 IF ( ICARD.NF.IRFAD .AND. I CARD. NE . ICOEF ) GO TO 235 

2001 CALL RECO 
GO TO 1161 

235 IF! (HCK.EO.O.) .OR. WEIGHT. EO. 0. ) GO TO 150 
IF(NOATMS.EO.l) GO TO 148 
IF! NO ATMS. GE .2) GO TO 149 


PAC 10 158 
PAC10159 
PAC10160 
PAC 10161 
PAC 10162 
P AC10163 
PAC10164 
PAC10165 
PAC10166 
PAC 10167 
PAC10168 
PAC10169 
PAC10170 
PAC10171 
PAC 10 172 
PAC10173 
PAC 10174 
PAC10175 
PAC10176 
PAC 10177 
PAC 10178 
PAC 10179 
PAC 10180 
PAC 10 181 
PAC10182 
PAC10183 
PAC 10 184 
PAC 10185 
PAC 10 186 
PAC10187 
PAC10188 
PAC101 89 
PAC10190 
PAC 10191 
PAC 10192 
PAC 10 193 
PAC 10194 
PAC 10 195 
PAC 10196 
PAC 10197 
PAC 10198 
PAC 10 199 
P AC10200 
PAC 10201 
PAC10202 
PAC 10203 
PAC 10204 
PAC 10205 
PAC10206 
PAC 10207 
PAC 10208 
PAC 10209 
PAC 10210 
PAC 10 2 1 1 
PAC10212 
PAC 1 02 13 
PAC 10214 
PAC 102 15 
PAC 10216 
PAC 10217 
PAC 102 18 
PAC 10219 
P AC10220 
PAC 1022 1 
PAC 10222 
P AC10223 
PAC 10224 
PAC10225 
P AC10226 
P AC10227 
PAC 10228 
P AC10229 
PAC 10230 
PAC10231 
P AC 10232 
PAC10233 


225 


244 


295 


24 



ooo no no ooo 


150 WR I TE( 6* 1511 
C 

151 FORMAT ( 50H0ERR0R IN INPUT * GO TO NEXT SPECIES, C40 
C 

152 IF (ICARD.EQ. IFINSHI GO TO 8B 
READ (5, 1UCARD 

l FORMAT I A6 ) 

GO TO 152 

88 TEST! 16) * .FALSE. 

LINES * LINES ♦ 2 
CALL PAGEID (LINES) 

GO TO 103 
1*8 CALL ATOM 
GO TO 1160 
149 CALL POLY 

1160 NIT » NT + 1 

1161 IF (TEST! 161) GO TO 152 
161 CALL PAGEID (LINES) 

GO TO 194 
C 

C50 

C 

111 IF ( TEST! 9)1 GO TO 112 
WRITE (6,163) 

163 FORMAT ( 54H0CP/R, ( H—HO) /RT , AND S/R ARE NOT READY FOR OUTPUT, C50 ) 
GO TO 103 

112 NL AST * NT 

CALL DELH TO CALCULATE HO IF NECESSARY. OELH WILL CALL LEAST FOR 
LEAST SOUARES FIT IF OPTION HAS BEEN REQUESTED. 

IF ( NNN.LT.NL AST ) CALL OELH 

CALL TABLES TO PUNCH FIRST TWO TABLES OF FUNCTIONS. 

1367 CALL TABLES 

FOR EFTAPE OPTION, CALL HFTAPE TO PUNCH EF DATA AND PUT DATA ON TAPE 
IF (TEST(IO)) CALL EFTAPE 

IF LOGK OPTION, CALL LOGK TO CALCULATE DELTAH AND LOG K AND 
PRINT TWO TABLES OF PROPERTIES. 

367 IF ( TEST( 12 ) ) CALL LOGK 
GO TO 103 
C 

C60 

C STORE DATA FROM LSTSQS CARD. 

C 

DATA I TC0NS/6HTC0NST/, I EXP/3HE XP/ 

180 TEST ( 15) - .TRUE. 

DO 185 I - 1,4 

IF (IWORD(I) .EQ. IHT) GO TO 181 
IF (IWORD(I) .EO.ITCONS) GO TO 186 
IF (IWORD(I) .EQ. I EXP ) GO TO 183 
IF ( I WORD ( I ) .EQ. IBLNK) GO TO 185 
WRITE (6,187) I WORD ( I ) , WORD(I) 

187 FORMAT (1H0, A6, 39H IS AN INCORRECT LABEL FOR THE NUMBER — 
t E 12.4, 29H. VALUE IGNORED, C60 ) 

GO TO 185 

186 TCONST = WORD! I ) 

GO TO 185 

181 ITR « ITR + l 
IF( ITR .GT. 10) GO TO 182 
TRANGEI ITR) * WORD! I ) 

GO TO 185 


182 WRITE (6,184) 

184 FORMAT (69H0FIRST 10 
1R0UTINE, C60 

GO TO 185 

183 NF * NF + 1 

EXP( NF ) * WORD( I ) 

185 CONTINUE 
GO TO 104 
END 


T • S ONLY WERE ACCEPTED FOR THE LEAST SQUARES 
) 


PAC10234 
PAC10235 
) PAC 10236 
PAC 10237 
PAC 10238 
PAC10239 
PAC10240 
PAC10241 
PAC 10242 
PAC10243 
PAC 10244 
PAC 10245 
PAC10246 
PAC10247 
PAC10248 
PAC 10249 
PAC 10250 ' 
PAC10251 
PAC10252 
PAC10253 
PAC10254 
PAC10255 
DELH0016 
DELH0017 
DELH0018 
DEL H0020 
PAC10257 
PAC10258 
PAC10259 
PAC 10260 
PAC10261 
PAC10262 
PAC 10263 
PAC10264 
PAC10265 
.PAC 10266 
PAC10267 
PAC10268 
PAC10269 
PAC10270 
PAC 10271 
PAC10272 
PAC10273 
PAC 10274 
PAC10275 
PAC10276 
PAC10277 
PAC10278 
PAC 10279 
PAC 10280 
PAC 10281 
PAC 10282 
PAC10283 
PAC 10284 
PAC 10285 
PAC 10286 
PAC10287 
PAC10288 
PAC 10 289 
PAC10290 
PAC 10291 
PAC10292 
PAC 10293 
PAC 10294 
PAC 10295 
PAC10296 
PAC10297 
PAC 10298 
PAC10299 
PAC10300 
PAC 10301 
PAC10302 


306 

309 


314 

317 

320 

326 


330 


335 

338 

341 

345 


367 


382 



o r> 


SUBROUTINE INPUT(LINES) 


C 

CTO 


READ ANO WRITE INPUT 

COMMON NAME! 2 ) ♦ Cl 143 1 • ICARD, I WORD* 51 « W0RDC4) 

DIMENSION FMTC 121 ,WRD(5) 

DATA I FMT I I) , 1-1, 3) /15H ( 1HO* A6* 6X * A6* /, <FMT( J I • J*5,9, 21 /3*6H6X, 
l» / , FMT ( 1 2 ) / 1H ) /, F8/6HF15. 8, / ,F3/6HF15*3 , /,F5/6HF15.5,/ • E8/6HE15 • 
2/. FI2/6H2X,I2, /,Fl/6HF15.0,/» IB/1H /,FB/6H9X ,A6 , /, 

3 ISTART/ 0 f 9 B/1H /, A2/6H2X , A2 , /,F7/6HF l 5.7 , / 

IF (NAME! 1 ) .EQ. IB.OR.I START.NE .0) GO TO 901 
CALL PAGE UHL INES) 

ISTART * 1 

WRITE ( 6* FMT I I CARD, ( I WORD ( I) # WRO(I) * 1-1 , 4) , I WRD 

901 READ! 5*1) ICARD, < I WORD ( I ) , WORD (I ) ,1*1 *4) , I WORD (5 ) 

1 FORMAT I 2A6,F12.0,A6,F12.0,A6,F12.0,A6,F12.0,I2) 

DO 904 I * 1,4 
J * 2*1+2 

IF (WORD(I).EO.O.) GO TO 902 
WRD( I I * WORD(U 
ABSV * ABS( WORD! Ill 
FMTC J I * F8 

IF IABSV.GE.1. I FMT(J) * F7 
IF C ABSV. GE. 100. ) FMTCJ1 * F5 
IF < ABSV. GE. 10000. IFMTC J) * F3 
IF C ABSV.LE. 1 • OE—3 ) FMTCJ) * E8 
IF (AMODC ABSV, l.I.EO.O.I FMT(J) * FI 
GO TO 904 

902 FMT ( J I * FB 
WRDCI) = B 

904 CONTINUE 

FMT C 1 1 ) * A2 
IWRD * IB 

IF C IWORDI 5 1 . EO. 01 GO TO 906 
FMT (111 *FI2 
IWRD * IW0RDC5) 

906 WRITE (6, FMT) ICARD , ( I WORD ( I ) , WRDC I), 1*1,4), IWRD 
LINES * LINES ♦ 2 

IF (LINES. GE. 55) CALL PAGE ID( L INE S) 

RETURN 
END 


INPT0001 
INPT0002 
INPT0003 
INPT0004 
INPT0005 
INPT0006 
INPT0007 
A6INPT0008 
8 , INPT0009 
INPT0010 
INPT0011 
INPT0012 
INPT0013 
INPT0014 
INPT0015 
INPT0016 
INPT0O17 
INPT0018 
INPT0019 
INPT0020 
INPT0021 
INPT0022 
INPT0023 
INPT0024 
I NPT0025 
INPT0026 
INPT0027 
INPT0028 
INPT0029 
INPT0030 
INPT0031 
INPT0032 
INPT0033 
INPT0034 
INPT0035 
INPT0036 
INPT0037 
INPT0038 
INPT0039 
INPT0040 
INPT0041 
INPT0042 


5 

7 

15 


62 

72 


26 



n n 



SUBROUTINE PAGEID (LINES) 

C 

C80 

PRINTS CHEMICAL FORMULA AT BOTTOM OF PAGE AND SKIPS TO NEXT SHEET « 
COMMON NAME! 21 

DATA SKIP /1H /, ZERO /1HO/ 

SKP - ZERO 

50 IF (LINES .LT. 551 GO TO 400 
IF (LINES .GT. 571 SKP * SKIP 

WRITE (6,100) SKP, NAME ( l ) , NAME ( 2 ) » NAME! 1 1 * NAME ( 2 ) 

100 FORMAT ( A 1 , 2A6, 95X, 2A6) 

200 WRITE (6,300) 

300 FORMAT ( IH1 ////l 
LINES * 4 
RETURN 

400 WRITE (6,500) 

500 FORMAT ( 1H ) 

LINES * LINES + 1 

GO TO 50 

END 


PAGE0001 

PAGE0002 

PAGE0003 

PAGE0004 
P AGE0005 
PAGE0006 
PAGE0007 
PAGE0008 
P AGE0009 
PAGE0010 
PAGE001 1 
PAGE0012 
PAGE0013 
PAGE0014 
PAGE0015 
PAGE0016 
PAGE0017 
PAGE0018 
PAGE0019 
PAGE0020 


6 

7 

9 


27 


c 

C90 

C 


EQUIVALENCE 
LOGICAL TEST 
INTEGER SYMBOL* 


(NAM, AHE) 
ELEMNT* FORMLA 


TEST! 101— PUNCH EF OATA AND PUT DATA ON TAPE FOR REACTANT WITH 
EFTAPE CARD IN SPECIFIC DATA. 

IF ! .NOT. TEST! 101 ) GO TO 147 
REWIND 3 

NDF » NDFILE *■ 1 
CALL SKFILEC3.NDF) 

DATA IH0/5HHZER0/. HELTPT /6HME LTPT/* I TN0/6H T NO./ 

DATA IHFDAT /6HEFDATA/* IBLANK/1H /* IE/6HOOOOOE/ 

IWORD(l)* NAME! 1 I 
WORD! 2 ) * ASINOH 
WORD! 3) * PTHELT 
WORD! 4 1 * NT 


C 

C100 

C 


PUNCH AND LIST EFDATA CARD. 

PUNCH 9* IHFDAT* NAME I II * I HO* AS I NDH* HELTPT* PTHELT * ITNO*NT 
9 FORMAT I 2A6*12X,2!A6,F12.4).A6,I12) 

WRITE (6* 10 ) iHFDATtNAME (1) ,IHO*ASINOH* HELTPT* PTHELT *ITN0, NT 
10 FORMAT! 1H0* A6 , 6X* A6* 15X,2 ( 6X* A6*F 15.41 * 6X, A6* 1 15 1 
NAM * l WORD! II 
KX * 0 


EACH BINARY CARD 
AND 7 SETS OF T, 


C 

C 

C110 
C 


SUBROUTINE EFTAPE EFTP0001 

EFTP0002 

COMMON NAME! 2 1 .SYMBOL (70 1 *ATMWTI 701 »R*HCK*NEL . I CARD. I WORD! 5) . EFTP0003 

1 WO R0( 4) * TEST! 20 )* WE IGHT .FORHLAI 51 »HLA( 51 • BLANK. ELEMNT (70 1 * EFTP0004 

2 N ATOM. NT. CPR! 2021. HHRT! 202) .ASI NDH. T( 202) .ASINDT.FHRT ( 2021, EFTP0005 

3 SC0NST.NOATMS,MPLACE(70I.LPLACE! 70). NHL A (701. NDFILE. EFTP0006 

4 SPECH. TAPE ( 606 I * PTMELT.PEXf 10) .TRANGE ( 10) .TCONST, NKIND, EFTP0007 

5 NF.LINES,ITR,NTMP,AG!70).GG!70),NIT,Pl .H298HR, IHEAT. JF( 5 ) EFTPOOOB 

EFTP0009 
EFTP0010 
EFTPOOli 
EFTP0012 
EFTP0013 
EFTP0014 
EFTP0015 
EFTP0016 
EFTP0017 
EFTP0018 
EFTP0019 
EFTP0020 
EFTP0021 
EFTP0022 
6FTP0023 
EFTP0024 
EFTP0025 
EFTP0026 
EFTP0027 
EFTP0028 
EFTP0029 
EFTP0030 
EFTP0031 
EFTP0032 
EFTP0033 
EFTP0034 
EFTP0035 
EFTP0036 
EFTP0037 
EFTP0038 
EFTP0039 
EFTP0040 
EFTP0041 
EFTP0042 
EFTP0043 
EFTP0044 
EFTP0045 
EFTP0046 
EFTP0047 
EFTP0048 
EFTP0049 
EFTP0050 
EFTP0051 
EFTP0052 
EFTP0053 
EFTP0054 
EFTP0055 
EFTP0056 
EFTP0057 
EFTP0058 
EFTP0059 
EFTP0060 
EFTP0061 
EFTP0062 
EPTP0063 
EFTP0064 
EFTP0065 
EFTP0066 
EFTP0067 
EFTP0068 
EFTP0069 
EFT P0070 
EFTP0071 
EFTP0072 
EFTP0073 
EFTP0074 
EFTP0075 
EFTP0076 
EFTP0077 
EFTP0078 
EFTP0079 
EFTP0080 
EFTP0081 


ARRANGE OATA FOR PUNCHING BINARY EF DATA CARDS* 
CONTAINS THE FORMULA (3RD WORD PHYSICALLY) 
(H-HOI/RT AND -(F-HOI/RT VALUES. 

DO 191 I * 1,3 
DO 191 LX =» 1, NT 
KX * KX ♦ 1 

IF ( MOD! KX.22) .NE.l) GO TO 190 
TAPE(KX) * AHE 
K X * K X + 1 

190 IF fl.EO.l) TAPE! KX ) 

IF (I.E0.2) TAPE! KX) 

IF (I.E0.3) TAPE! KX ) 

191 CONTINUE 


TILX) 
HHRT! LX ) 
FHRT(LX) 


BCDUMP IS HAP ROUTINE FOR PUNCHING BINARY CARDS. 
CALL BCDUMP ! TAPE ( 1 ). TAPE ( KX) ) 


READ IN BINARY EF DATA AND PUT ON TAPE 3 

ORDER OF WORDS ON TAPE FOR EACH ELEMENT OR ATOM— 


1 . 

2 . 

3. 

4. 

5. 

6. 
7. 


NAME 

HZERO 

MELTPT 

T NO. 

TEMPS 

HHRT 

FHRT 


UWORD(l) ON EFDATA CARD) 
( WORD! 2 ) ON EFDATA CARO) 
(WORD! 3) ON EFDATA CARD) 
( WORD! 4 ) ON EFDATA CARO) 
(NEXT T NO. OF WORDS) 
(NEXT T NO. OF WORDS) 
(NEXT T NO. OF WOROSI 


♦ 0.1 


147 N * 3. 0*W0RD( 4 ) 

NX * N ♦ N/21 

IF (M0DIN.21I.NE.0) NX-NX+1 

BCREAD IS MAP ROUTINE FOR READING BINARY CARDS. 

IF (.NOT. TEST! 10) I CALL BCREAD !TAPE(1), TAPE!NX)> 
NAM * I WORD! 1 ) 

IX - 0 

DO 999 I XX=l*N X 

IF (TAPE! IXXI.EQ. AHE) GO TO 999 
IX * IX ♦ 1 
TAPE! IX) * TAPE ( IXX I 
999 CONTINUE 


4 

6 


S 

9 


40 


48 


28 


UU (JO o uuuu uuuuuouu oo u u u 


IF (N.EO.IX) GO TO 1100 
WRITE (6,1105) NAM 

1105 FORMAT! 10H0ERR0R IN ,A6,13H EFOATA* CliO) 

RETURN 
C 

C120 

WRITE EF DATA ON TAPE. 

1100 NDFILE * NOFILE + 1 

WRITE (3) I WORD ( 1 ) , WORD(2). W0R0(3), W0RD(4) 

WRITEI3) (TAPE ( I ) » I *1, N) 

END FILE 3 

TEST (1) — LI STEF CARO HAS BEEN READ. THUS LIST EF BINARY DATA. 

IF (.NOT. TEST! 1 )l GO TO 210 
WRITE (6,201) 

201 FORMAT! 11X, IHT.13X, 8H H-HO/RT, 12X, 10H-IF— HOI/RT ,19X»1HT»13X,0H H 
10/RT, 12X, 10H-IF-H0 ) /RT) 

LINES * LINES+l 
N3 * N/3 

00 205 I * 1, N3, 2 
J * N3 + I 
K * 2 * N3 ♦ I 
LINES - LINES+1 

IF (LINES. GE. 551 CALL PAGE ID! LINE S) 

205 WRITE! 6, 202) TAPE! K ) ,TAPE ( J) ,TAPE(K) *TAPE(I+l) , TAPE! J+l ) ,TAPE( K+l 

202 FORMAT ( F15.3,2F20.8,8X,F15.3,2F20. 8) 

210 INDEX * 1 

130 

IF (TEST! 10)) GO TO 146 
TEST! 7 ) - .TRUE. 

ICARD * I WORD! 1 ) 

IWORD(I) * IBLANK 

TEST(T)— SUBROUTINE IOENT IS BEING CALLED FROM EFTAPE. 

SUBROUTINE IDENT IS CALLED TO DETERMINE NUMBER OF ATOMS IN REACTANT 

CALL IOENT 
NAME(l) * I8LANK 

146 IF ( NOATMS.EQ • 1 *AND.TEST( 4) ) GO TO 141 

NATOM * NUMBER OF REACTANT SPECIES ON TAPE AT THIS TIME. 

SYMBOL - ATOMIC SYMBOL * FORMLA(l) FROM IDENT. 

ELEMNT * ASSIGNED REFERENCE FORM 
NML A * NUMBER OF ATOMS IN ELEMENT. 

MPLACE * POSITION OF MONATOMIC REACTANT SPECIES ON TAPE. 

LPLACE * POSITION OF ASSIGNED REFERENCE REACTANT ON TAPE. 

IF (NATOM. EO.O) GO TO 142 

DO 140 INDEX * 1, NATOM 

IF ( ICARD. EO.ELEMNT(INOEX) ) GO TO 151 

140 CONTINUE 

00 150 INDEX * 1, NATOM 

IF ( FORML A( l) . EQ. SYMBOL (INDEX) )G0 TO 152 

150 CONTINUE 

142 NATOM * NATOM + 1 
INDEX * NATOM 

151 SYMBOL (INDEX) - FORHLA(l) 

152 NMLA( INDEX) * MLA(l) 

LPL ACE( INDEX) - NDFILE 
GO TO 163 

REACTANT SPECIES IS MONATOMIC GAS. 

141 IF (NATOM. EO.O) GO TO 161 
DO 160 INDEX * 1, NATOM 

IF ( FORML A( 1 ) • EO. SYMBOL ( INDEX) ) GO TO 162 

160 CONTINUE 

161 NATOM * NATOM ♦ 1 
SYMBOL! NATOM) - FORMLAC 11 
INDEX * NATOM 

162 MPLACE( INDEX) * NDFILE 

NEL * INDEX FOR POSITION OF ELECTRON GAS IN ARRAYS OF DATA FOR 
REACTANT SPECIES. 

IF (FORMLA( 1) .NE. IE) GO TO 163 
NEL * INDEX 
NMLA(NEL) * 1 
LPLACE(NEL) * MPLACE(NEL) 

163 IF (TEST! 10)) RETURN 

00 145 1*3,7 

145 TEST! I) * .FALSE. 

RETURN 

END 


EFTP0082 


EFTP0083 

67 

EFTP0084 


EFTP0085 


EFTP0086 


EFTP0087 


EFTP0088 


EFTP0089 


EFTP0090 


EFTP0091 

69 

EFTP0092 

70 

EFTP0093 


EFTP0094 


EFTP0095 

77 

EFTP0096 


EFTP0097 

80 


-HEFTP0098 

EFTP0099 

EFTP0100 

EFTP0101 

EFTP0102 

EFTP0103 

EFTP0104 

EFTP0105 
) EFTP0106 
EFTP0107 
EFTP0106 
EFTP0109 
EFTPOtlO 
EFTP011 1 
EFTP0112 
EFTP0113 
EFTPO 114 
EFTP0115 
. EFTPO 116 
EFTP0117 
EFTP0118 
EFTP0119 
EFTP0120 
EFTP0121 
EFTP0122 
EFTP0123 
EFTP0124 
EFTP0125 
EFTP0126 
EFTP0127 
EFTP0128 
EFTP0129 
EFTPO 130 
EFTP0131 
EFTP0132 
EFTP0133 
EFTP0134 
EFTP0135 
EFTP0136 
EFTP0137 
EFTP0138 
EFTP0139 
EFTP0140 
EFTP0141 
EFTP0142 
EFTP0143 
EFTP0144 
EFTP0145 
EFTP0146 
EFTP0147 
EFTP0148 
EFTP0149 
EFTP0150 
EFTP0151 
EFTP0152 
EFTP0153 
EFTP0154 
EFTP0155 

EFTP0156 
EFTP0157 
EFTP0158 
EFTPO 159 
EFTP0160 
EFTP0161 
EFTPO 162 


90 

92 


107 


29 




SUBROUTINE IDENT 

I0EN0001 

c 

FROM FORMULA, DETERMINE— 

IDEN0002 

c 

1) 

PHASE OF SPECIES. 

IDEN0003 

c 

2) 

NUMBER OF ATOMS IN SPECIES, 

IDEN0004 

c 

3) 

MOLECULAR WEIGHT, 

IDEN0005 

c 

4) 

IF ION, NUMBER OF ELECTRONS 

ADDED OR SUBTRACTED FROM NEUTRAL IDEN0006 

c 


SPECIES. 

IDEN0007 


COMMON NAME! 2 ) * SYMBOL! 70) »ATMWT(70I ,R,HCK«NEL , I CARD, I WORD! 5) * 

1 WORD (4) * TEST ( 201 » WE IGHT .FORMLA { 5 1 * MLA ( 5 ) * NPLUS. EL EMNT ( 70 ) , 


IDEN0008 
I 0EN0009 


2 NA TOM, NT »C PR ( 202) * HHR7 ( 202 ) , ASINDH, T! 202) * ASINDT , FHRT I 202) v IDEN0010 

3 SCONST, NOATMS.MPLACE 170 ) ,L PLACE (701 , NMLAI70) , NDFILE, IDEN0011 

4 SPECH.TAPE! 202*3) * PTMELT , PEX! 10) , TRANGE ( 10 > ,TCONST , NKI ND, 10EN0012 

5 NF,L INES, ITR , NTMPtAGC 70) ,GG(70) ,NIT,PI ,H298HR , IHEAT, JF( 5 I IDEN0013 
OATA 1 BLNK/1H /, IPLUS/6HOOOOO+/.MINUS/6HOOOOO-/. LFTPAR/6HOOOOO! /, IDEN0014 


IGAS/6H00000G/.L I 0/6H00000L / 


C 

C140 

C 


INTEGER SYMBOL, ELEMNT , FORMLA 
LOGICAL TEST 

DIMENSION f AC 121, NO (111 *NUM( 11 ) 

DO 49 I - 1,11 
NOU) * 0 
49 NUMIII * 0 

PUTS EACH ALPHANUMERIC CHARACTER OF FORMULA IN I A ARRAYCRT ADJUSTED) 

NAME! 1 ) * ICARD 
NAME! 2 > - I WORD! 1 ) 

J*1 

DO 50 1*1,2 
DO 51 K*l,6 
I A! J )*IARS! 30, NAME! I>) 


NAME! I) » 
51 J*J+1 
50 CONTINUE 
NAME! 1 ) * 
NAME! 2 ) = 


I AL S! 6, NAME ! I ) ) 


ICARD 
I WORD ! 1 ) 

C 

C150 

C WHICH CHARACTERS ARE NUMBERS AND WHAT ARE THEY 
C 

C INO*NUMBER OF NUMBERS 

C NUM! II* LOCATION OF NUMBERS IN IA ARRAY 

C NO! I I* NUMBERS IN THESE LOCATIONS 

C 

WEIGHT *0*0 
INO * 0 
IONNUM * 0 
DO 60 N * 2,12 
IF (lA(N).LE. 9) GO TO 53 
IF (IAINI.EQ.IBLNK) GO TO 54 
IF (IAIN)- EQ. I PL US ) IONNUM 
IF (IA(N)-EO. MINUS) IONNUM 
GO TO 60 

53 IF I INO.NE.O.AND.N.GT.NUM! INOI+3) GO TO 55 
INO * INO + 1 
NO! INO) * IAIN) 

NUN! INO) * N 
60 CONTINUE 


IONNUM - 1 
IONNUM * l 


IF NO NUMBERS !IN0=0) PROBABLY NOT A FORMULA CARD. RETURN TO PAC1. 

54 IF ( INO.NE.O ) GO TO 57 

55 WRITE !6,56> 

56 FORMAT ( 45H0ERR0R IN ABOVE CARO, IGNORE CONTENTS, C150 
RETURN 

57 IF (IONNUM .EQ.OI GO TO 61 

IONIC SPECIES. CALCULATE CORRECTION TO MOLECULAR WEIGHT. 

TEST! 3) * .TRUE. 

FIONNO * IONNUM 

WEIGHT * FIONNO * ATMWT(NEL) 

IF (NEL .NE.O) GO TO 66 
WEIGHT = 0 
WRITE 16,700) 

700 FORMAT ( 30H0ELECTR0N DATA MISSING, C150 I 

GO TO 66 


IDEN0015 
I0EN0016 
IDEN0017 
I DEN0018 
I 0EN0019 
IDEN0020 
I DEN0021 
I DEN0022 
IDEN0023 
IDEN0024 
I DEN0025 
I DEN0026 
IDEN0027 
IDEN0026 
IDEN0029 
IDEN0030 
I DEN0031 
IDEN0032 
IDEN0033 
IDEN0034 
IDEN0035 
IDEN0036 
IDEN0037 
I DEN0038 
I DEN0039 
IDEN0040 
IDEN0041 
IDEN0042 
I DEN0043 
IDEN0044 
I0EN0045 
IDEN0046 
IDEN0047 
IDEN0048 
I DEN0049 
IDEN0050 
I DEN0051 
IDEN0052 
I DEN0053 
I DEN0054 
IDEN0055 
IDEN0056 
I DEN0057 
I 0EN0058 
I DEN0059 
I DEN0060 
I DEN0061 
IDEN0062 
IDEN0063 
I DEN0064 
I IDEN0065 
t DEN0066 
I DEN0067 
IDEN0068 
IDEN0069 
I DEN0070 
IDEN0071 
I0EN0072 
I DEN0073 
IDEN0074 
IDEN0075 
IDEN0076 
I DEN0077 



no non non on no non o on 


61 NEXT * NUHI INO ) ♦ 1 

DETERMINE PHASE OF SPECIES. 

IF{ IA! NEXT ) .EO. 1BLNK .OR. IAINEXT+1 1 . EO. I6AS) GOTO 66 
IFC I A! NEXT ) .EQ.LF TPAR) GO TO 165 

64 WRITE (6,65) 

65 FORMAT! 42H ERROR IN NAME, GO TO NEXT SPECIES, C150 ) 

TEST! 16) * .TRUE. 

RETURN 

165 IF! IA( NEXT+D.EQ.LIQ) TEST (5>». TRUE. 

IF! IA(NEXT+l).NE.LEO)TEST! 6)*. TRUE. 

NPLUS * NEXT ♦ 1 
GO TO 67 

66 TEST! 4)*. TRUE. 


67 I * 1 
J * 1 
K * 0 

DO 100 LMN * !♦ 5 
FORMLA(LMN) « 0 
100 ML A!LMN ) * 0 
NOATMS * 0 

STORE EACH ATOMIC SYMBOL IN FORMLA! J). 
69 IFCNUM! I1.E0.1K+2) )G0 TO 70 
IF!NUM( I >.NE.(K+3) )G0 TO 64 


IDEN0078 
IDEN0079 
IDEN0080 
IDEN0081 
I DEN0082 
I DEN0083 
I DEN0084 
IDEN0085 
IDEN0086 
IDEN0087 
I DEN0088 
IDEN0089 
I DEN0090 
IDEN0091 
IDEN0092 
IDEN0093 
IDEN0094 
I DEN0095 
I DEN0096 
I0EN0097 
IDEN0098 
IDEN0099 
IDEN0100 
I 0EN0101 
IDEN0102 
I0EN0103 

NUMBER OF ATOMS IN MLA! J ) • IDEN0104 

I DEN0105 
IOEN0106 


FORMLA! J )>IALS!6, lAf K+l ) 1 41 A I K+2) 

GO TO 71 

70 FORMLA* J)*IA!K+1) 

71 IF! (NUM(I) + D .EQ.NUM! I + 1-) ) GO TO 72 
MLA! J ) *NQ! I ) 

GO TO 73 

72 MLA! J1*10*NO!I ) +N0 ( I ♦ 1 1 
I-I + l 

NOATMS * TOTAL NUMBER OF ATOMS IN MOLECULE. 

73 N0ATMS*N0ATMS + MLA ( J) 

IF! TEST! 7)) GO TO 85 

FIND ATOM FORMULA IN SYMBOL TABLE 

DO ( 4 L* l »NATOM 

IF! FORMLA! J ) .EO. SYMBOL CL) ) GO TO 91 

74 CONTINUE 

90 WRITE (6,92) 

92 FORMAT ( 50HOATOH CARO MISSING OR FORMULA INCORRECT, C160 
WEIGHT * 0 
GO TO 85 

CALCULATE MOLECULAR WEIGHT. 

STORE POSITION OF ELEMENT DATA IN JF. 

91 JF! J ) * L 

IF (ATMWT(L).EQ.O.O) GO TO 90 

75 WE I GHT*WE IGHT+ATMWT (L)*FLOAT( MLA! J I I 
85 IF! INO.LE. I I GO TO 88 

K*NUM( I ) 

1*1 + 1 
J*J+1 
GO TO 69 

88 IF ( .NOT .TEST ! 3 ) .OR. NEL.EO.O) GO TO 900 
J * J + 1 
JF! J ) *NEL 

FORMLA! J ) * SYMBOL! NEL ) 

ML A! J ) * IONNUM 

NK INO * NUMBER OF ELEMENTS IN FORMULA. 

900 NK INO * J 

IF ( TEST! 3 ) .AND. NEL .EO. 0) WEIGHT * 0. 

IF ( .NOT .TEST! 7) ) RETURN 

NAME! 1 ) * IBLNK 

RETURN 

END 


IDEN0107 
IDEN0108 
IOEN0109 
I0EN01 10 
I0EN0111 
I DEN0112 
I0EN0113 
I DEN0114 
I0EN01 15 
IDEN0116 
I0EN0U7 
I DEN0118 
I 0EN0119 
IDEN0120 
I 0EN0121 
I 0EN0122 
I0EN0123 
I 0EN0124 
I DEN0125 
) I0EN0126 
IDEN0127 
IDEN0128 
IDEN0129 
I DEN0130 
IDEN0131 
I0EN0132 
I0EN0133 
I 0EN0134 
I 0EN0135 
I0EN0136 
I0EN0137 
I DEN0138 
IDEN0139 
IOEN0140 
I 0EN0141 
I 0EN0142 
I 0EN0143 
I DEN0144 
I0EN0145 
I DEN0146 
I0EN0147 
I 0EN0148 
I0EN0149 
IDEN0150 
IDEN0151 
IDEN0152 


84 


115 


151 


31 



noonnn 


SUBROUTINE TEMPER* NT, TINTVL, 


T, I WORD, WORD) 


TENPOOOl 


STORES T SCHEDULE IN T ARRAY FROM DATA ON TEMP CARDS. 

NT * NUMBER OF TEMPERATURES 

TINTVL * I VALUE ON TEMP CARD. PRESERVED IF LAST VALUE ON CARD SO 
IT WILL BE AVAILABLE FOR USE WITH DATA ON NEXT TEMP CARD. 


C170 

C 

DATA IT/1HT/,I/1HI /, I BLANK /060606 0606060/ 

DIMENSION T 1 2 02 ) » I WORD 151 ,W0RDI4> 

103 DO 120 J*l,4 

IFIIWQRD(J) .EQ.IBLANK) GO TO 120 
IF* I WORD* Jt.EQ.IT) GO TO 121 
IF (IWORD(J).EO.n GO TO 122 

124 WRITE 16, 123 ) 

123 FORMAT* 35H0ERR0R IN LABELS ON TEMP CARD, C170I 
GO TO 139 

122 IF INT.GT.01 GO TO 125 
GO TO 124 

125 TINTVL - WORD* J ) 

GO TO 120 

121 IF INT.EQ.O) GO TO 126 

IF ( TINTVL.EO .0 .0 1 GO TO 127 

131 IF (T(NT).GE. <298.15-. 0001)1 GO TO 128 

IF IITINTI+TINTVLJ.GT. *298.15+. 0001) I GO TO 129 

128 NT * NT+1 

IF ( NT .GT .202 1 GO TO 1140 
TINT) * T ( NT- 1 ) +T I NT VL 
130 IF IT*NT). GE. (WORD* J 00011 1 GO TO 141 
GO TO 131 
141 TINTVL * 0.0 
GO TO 120 

129 NT * NT+1 
TINT) * 298.15 
NT * NT+1 

TINT) * T* NT— 2 ) +TINTVL 
GO TO 130 

126 NT * 1 

T INT) * WORD* J ) 

GO TO 120 

127 IF (TINT). GE. 1298. 15-. 0001) > GO TO 132 
IF I WORD* J ) .GT .1298. 15+. 0001) )G0 TO 133 

132 NT - NT+1 

IF * NT .GT • 202 ) GO TO 1140 
T*NT ) * WORD! J ) 

GO TO 120 

133 NT * NT+1 

T *NT ) * 298.15 
GO TO 132 
120 CONTINUE 
C 

C180 

RETURN 

1140 NT * 202 

WRITE *6,140) 

140 FORMAT* 41H0NUMBER OF TEMPERATURES EXCEEDS 202, C180) 
RETURN 
C 

C TEMP CARD IS BLANK— USE STANDARD TEMPERATURE RANGE 
C 

139 IW0R0I1) * IT 
WORD* 1 ) * 100.0 
IW0RDI2) * I 
WORD* 2 ) = 100.0 
I WORD* 3) * IT 
WORD* 3) * 6000.0 
GO TO 103 
END 


TEMP0002 

TEMP0003 

TEMP0004 

TEMP0005 

TEMP0006 

TEMPOOil 

TEMP0012 

TEMP0013 

TEMP0014 

TEMP0015 

TEMP0016 

TEMP0017 

TEMP0018 

TEMP0019 

TEMP0020 

TEMP0021 

TEMP0022 

TEMP0023 

TEMP0024 

TEMP0025 

TEMP0026 

TEMP0027 

TEMP0028 

TEMP0029 

TEHP0030 

TEMP0031 

TEMP0032 

TEMP0033 

TEMP0034 

TEMP0035 

TEMP0036 

TEMP0037 

TEMP0038 

TEMP0039 

TEMP0040 

TEMP0041 

TEMP0042 

TEMP0043 

TEMP0044 

TEMP0045 

TEMP0046 

TEMP0047 

TEMP0048 

TEMP0049 

TEMP0050 

TEMP0051 

TEMP0052 

TEMP0053 

TEMP0054 

TEMP0055 

TEMP0056 

TEMP0057 

TEMP0058 

TEMP0059 

TEMP0060 

TEMP0061 

TEMP0062 

TEMP0063 

TEMP0064 

TEMP0065 

TEMP0066 

TEMP0067 

TEMP0068 



SUBROUTINE RECO 


READIN AND COEF METHODS* 


C 

C190 

C 


COMMON NAME (21* SYMBOL I 701 * ATMWT! 70 1 »R *HCK*ELECTR* ICARD, IWORD! 5 » . 

1 WORD (4) * TESTI 20 1 * WE IGHT .FQRMLA! 5 ) ,MLA! 5 ) , BLANK, ELEMNT ( 70) • 

2 NATOM* NT *CPR ( 202 ) * HHRT (202) * ASI NDH» Tt 2021 , ASI NOT , FHRT ! 202 ) , 

3 SCON ST* NOATMS *MPLACE (701 *L PLACE! 701 *NMLAI70 I *NDFILE« 

4 SPECH, TAPE!202,3)*PTMELT*PEX!10) , TRANGE ! 10 ) « TCONST * NK I ND* 

5 NF*LINES*ITR* NTMP* AG C 70 I * GG (701 *NIT*PI *H298HR 

COMMON /PCH/LEVEL «NFl*NF2tC(9*15) *TC!101 , NTC « NEX* LOATE* NNN * NLAST 


DIMENSION EX( 151 

LOGICAL TEST* TSTRED,TSTCO 

EQUIVALENCE t AN*NN I 

DATA IT /2HT /, IBLNK /1H /* 

1 IC / 6HOOOOOC/ * IPNCH /6HTPUNCH/ • 

2 IHH2C /6 HCHHO/R/* I HR /4HCH/R/* 

3 MASK /□ 776 0777777 7 7/* 


IE /6HOOOOOE/* 
IHH1 /6HCHH0/R/, 
I SRC /4HCS/R/ « 

I RE0UC/6HREDUCE/ 


DATA IHHD1 /5HCH-H0/ • IHHD2 /5HCH-H0/ • I SC/2HCS/ * IH/2HCH/ 

DATA ICP, I HHO* IHH2* IFHO* IFH2, IS* IHHOT* IHH2T « tFHOT* IFH2T, 
1ICPR* IHHORT* IHH2RT* IFHORT* IFH2RT * I SR /2HCP* 4HH-H0* 

24HH-H2* 5H-F-H0* 5H-F-H2* IMS, 6HH-H0/T* 6HH-H2/T* 6H-FH0/T, 
36H-FH2/T* 4HCP/R. 6HH-H0RT* 6HH-H2RT* 6H-FH0RT* 6H-FH2RT, 3HS/R/ * 

4 IH29H0/6HH298H0/, IH29H0/6HH298H0/, IDELH/6HDELTAH/* I DELS 

5 /6HDELTAS/* IC0EF/4HC0EF/* MP/6HMELTPT/ * 

6 IHH0/4HH— HO/ * IHH0T/6HH-H0/T/* IHHORT /6HH— HORT /* I FH0/5H— F— HO/ * 

7 IFHOT / 6HF-H0/T /* I FH0RT/6H-FH0RT/ 

IF tLEVEL.NE.il LEVEL»LEVEL+1 

INITIALIZE. NIT IS INDEX FOR NEXT T AND CORRESPONDING FUNCTIONS. 

NTT * NIT 
TT » TINIT-ll 
HHRT! NTT I * 0. 

FHRT! NTT I * -1.0 

TJ1 * TINIT) 

TJ2 * T( NT I 
TSTCU - -FALSE. 

H29 8H0 - 0. 

TSTRED - .FALSE. 

STORE INFORMATION FROM METHOD CARD. 

DO 2200 I * 1*4 

IF! IWDRDI I I.EQ.IH29H0.0R. I WORD! t I . EO. IH29H0) H298H0 « WORD! I) 

IF ! I WORD III.EO.IOELH) GO TO 2155 
IF C IWORDill.EO.IOELSI GO TO 2150 
IF ( I WORD! I l.EO.ICOEF I TSTCO « .TRUE. 

IF REDUCE- LABEL* COEFFICIENTS ARE FOR CP/ R. 

IF t I WORD! I I.EO.IREDUC) TSTRED*. TRUE. 

IF ! I WORD! 1 1 «EQ. MP I PTMELT * WORDIII 
GO TO 2200 


CALCULATE H-HO/RT AND 


C DELTAH OR DELTAS FOR HEAT OF TRANSITION. 

C — ! F-HO) /RT FOR NEW PHASE. 

2150 WORD! 1 1 * WORD! I ) *TT 

2155 IFINIT.GT.il GO TO 2156 
TEST! 16 »- .TRUE. 

WR I TE1 6* 2154 ) 

2154 FORMAT! 47H0T FDR TRANSITION UNKNOWN. GQ TO NEXT SPECIES. I 
RETURN 

2156 HHRT! NTT I • HHRTINIT-ll ♦ WORD ! I) / ! R*TTI 
FHRT! NTT ) - FHRTINIT-IJ 

2200 CONTINUE 
C 

C200 

c 

IF! H298HR .EQ.O. V H298HR - H298H0/R 

I F! ( HHRT! NTT 1 .EO.O. ) .OR. HHRT! NIT) • EO. HHRT! NIT -1 1 1 GO TO 9 
NLAST * NIT-1 


IF THERE HAS BEEN A HEAT OF TRANSITION* CALL DELH TO CHECK FOR 
LSTSQS OR PUNCHED COEFFICIENTS FOR PREVIOUS PHASE. 

CALL DELH 
NNN * NIT 
NLAST * NT 

LEVEL*l 

9 DO 10 I « LEVEL *9 
DO 10 J * 1, 15 
10 C(1,JI * 0.0 
NEX * 0 
NOTS « 0 
NDT - 0 
JT * 0 
NFIRST * O 

50 CALL INPUT ILINES) 

NWORu - 1 

IF INFIRST .NE. 01 GO TO 100 

INITIALIZE FOR FIRST CARD. 

NSUB - ICARD 


REC00001 
REC00002 
REC00003 
REC00004 
REC00005 
REC00006 
REC00007 
REC00008 
REC00009 
REC00010 
REC00011 
REC00012 
REC00013 
REC00014 
REC00015 
REC00016 
REC00017 
REC00018 
REC00019 
REC00020 
REC00021 
REC00022 
REC00023 
REC00024 
REC00025 
REC00026 
REC00027 
REC00028 
REC00029 
REC00030 
REC00031 
REC00032 
REC00033 
REC00034 
REC00035 
REC00036 
REC00037 
REC00038 
REC00039 
REC00040 
REC00041 
REC00042 
REC00043 
REC00044 
REC00045 
REC00046 
REC00047 
REC00048 
REC00049 
REC00050 
REC00051 
REC00052 
REC00053 
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REC00055 
REC00056 
REC00057 
REC00058 
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REC00062 
REC00063 
REC00064 
REC00065 
REC00066 
REC00067 
REC00068 
REC00069 
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REC00071 
REC00072 
REC00073 
REC00074 
REC00075 
REC00076 
REC00077 
REC00078 
REC00079 
REC00080 
REC00081 
REC00082 
REC00083 
REC00084 
REC00085 
REC00086 
REC00087 
REC00088 
REC00089 
REC00090 
REC00091 
REC00092 
REC00093 
REC00094 


43 


62 


82 


33 



HCOEF 

SCOEF 


0.0 

0.0 


IF CC 1-6 NOT » TO CC 1-6 PREVIOUS CARD, GO TO 210 IC240). 

100 IF tICARO .NE. NSUB) GO TO 210 
102 IF ITSTCO.ANO.NFIRST.NE.OI GO TO 3000 
NFIRST - NF IRST4-1 
IOUT - 0 
00 410 I « 1,4 

IF I IWORDI I I .EQ. IT ) GO TO 15 
410 CONTINUE 
IOUT * IT 

11 WRITE 16,12) IOUT 

12 FORMAT ( 3 IHODATA CARD WAS SKIPPED BECAUSE A6,24HVALUE WAS MISSI 
1, C200I 

13 LINES * LINES ♦ 2 
GO TO 50 


C 

C210 
C 


ICPI GO TO 22 
ICPRIGO TO 24 


IF TWO CONSECUTIVE T LABELS, ASSUME COEFFICIENTS, GO TO 3000 (C230). 

15 IF ( IWORDII + U.EQ.IT) GO TO 3000 
TT « WORDI I) 

RT * R*TT 

IF C TT .EO. 0.0 .OR. TSTCO) GO TO 30 

CHECK FOR CP. 

DO 20 I - 1,4 
IF ( IWOROII ) *E0. 

IF (IWORD(I) .EO. 

20 CONTINUE 
IOUT * ICP 
GO TO 11 

22 CPRINTT) * WORDID/R 
GO TO 30 

24 CPRINTT) - WORD!! I 

CHECK FOR ENTHALPY. SKIP IF CALCULATED FROM DELTAH. 

30 IFUHHRTINTTI.NE.O. ). AND. NFIRST. EO.l) GO TO 9491 
DO 40 I > 1,4 

IF! IWOROI I ) «E0. IHHO I IWOROII) -IHHO 
IF< IWORDI D.EO.IHHOT ) IWOROII) -IHHOT 
IF! I WORDI I).EO. IHHORT ) IWORDI I) -IHHORT 

IF I IWOROII). EO. IHHO .OR. I WORD! t ) . EO. IHHOT .OR. IWOROII). EQ. 

1 IHHORT) GO TO 60 

IF IIWORDI II.EQ.IHH2 .OR. IWORDI I ). EO. IHH2T .OR. IWOROII). EQ. 

1 IHH2RT) GO TO 850 

40 CONTINUE 
IOUT * IHHO 
GO TO 70 

850 IF ITT .NE. 0.0) GO TO 52 

IF (H298H0 .EO. 0.0 .AND. IWORDI I) .EQ. IHH2) H298H0 - -WORDI I ) 

GO TO 50 


H-H298 FUNCTIONS. 

52 IF I IWORDI I ) .EO. IHH2) HHRTT - WORD HI /RT 

IF I IWOROII) .EO. IHH2T ) HHRTT » WOROID/R 

IF I IWORDI I) .EO. IHH2RT) HHRTT * WORDI I) 

IF (H298H0 .EO. 0.0) TESTI13) * .TRUE. 

HHRTf NTT) - HHRTT 4- H298H0/RT 
GO TO 65 


H-HO FUNCTIONS. 
60 IF I I WORDI I ) 
IF I IWORDI I) 
IF I IWORDI I) 


.EO. 

.EO. 

.EO. 


IHHO) 

IHHOT) 


HHRTINTT) 
HHRTINTT ) 


IHHORT) HHRTINTT) 


WOROIU/RT 
WORDID/R 
WORDI I) 


CHECK FOR T« ASINDT ON FORMULA CARD. 

65 IF IABSI TT- ASINDT) .GT. 0.005) GO TO 70 
SPECH * HHRTINTT) ♦ RT 
TESTI19) * .TRUE. 


CHECK FOR FREE ENERGY FUNCTIONS, 
70 FHRTT « -1.0 
SR * -1. 

00 480 I * 1,4 
IF! IWORDI I). EO.IFHO 
IF! IWORDI I). EO.IFHOT 

1 FI IWORDI I). EO.IFHORT 
IF I IWORDI 1 1. EO.IFHO 
IF I IWORDI I I. EO.IFHORT) FHRTT 
IF I IWORDI I I. EO.IFHOT ) FHRTT 
IF I IWORDI D.E0.IFH2 ) FHRTT 

I IWORDI I ) .E0.IFH2T ) FHRTT 


IWORDI I) 
IWORDI I) 
IWORDI I) 


) FHRTT - 


IFHO 
IFHOT 
IFHORT 
WORDI I ) /RT 
WORD! I) 

WORDID/R 

I WORD I II - H298H0 ) / RT 
IWOROII) - H298H0/TT 1/ R 
WORD! 1 1 - H298H0/RT 


IF 

IF I IWORDI 1 1 -E0.IFH2RT) FHRTT 
IFII I IWOROI I 1.EO.IFH2I.OR.IIWORDII ).EO.I FH2TI .OR* I IWORDI I ) • EO. 
1 IFH2RT) ) • AND. H298H0.E0.0. 0) TESTI13I « .TRUE. 

IF IIOUT.NE. IHHO I GO TO 9048 


CHECK FOR ENTROPY FUNCTIONS. 
IF I IWORDI D.EO.IS) SR 

IF { IWORDI I ).E0. 1 SR I SR 

GO TO 480 


WOROID/R 
WORD! I I 
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9048 IF f IWORD(I).EQ.IS) FHRTT * WORDCD/R - HHRT I NTT I 
IF I I WORD! I ).EQ.ISR) FHRTT - WORD (II - HHRT (NTT) 

480 CONTINUE 

IF I FHRTT. EQ. (-1.0)1 GO TO 1100 
FHRTINTT) * FHRTT 
IF I IOUT.NE. IHHO) GO TO 9491 
IF (SR.EO.(-l-) I GO TO II 
HHRT! NTT ) *SR- FHRTT 

IF (ABS(TT-ASINOT) .GT. 0.0051 GO TO 9491 
SPECH - HHRT< NTT) * RT 

C TEST! 191 — THERE IS AN ENTHALPY FOR THE ASINDT ON THE FORMULA CARO 
C STORED IN SPECH. 

TEST! 191 * .TRUE. 

C 

C220 

C 

C TESTI9I — THERE ARE TH6RH00 YNAMI C FUNCTIONS FOR AT LEAST ONE T. 
9491 TEST! 91 * .TRUE. 

IF (NIT-EO.NNNI GO TO 94 

IFI Tf NIT-1). LT.PTMELT.AND.TT .GT.PTMELT) GO TO 9493 


9493 NL AST - NIT - l 
CALL OELH 
NNN - NIT 
NL AST * NT 

94 IF CTSTCO) GO TO 5G 
NT * NT * 1 
TINT) « TT 
NTT » NT+1 
NIT - NTT 
GO TO 50 
1100 IOUT » IFHO 
GO TO 11 
C 

C2 30 


REC00210 
REC00211 
REC00212 
REC00213 
REC00214 
REC00215 
REC00216 
REC0021? 
REC00218 
REC00Z19 
REC00220 
REC00221 
REC00222 
REC00223 
REC00224 

C230 TO C240 — STORE CONTENTS OF DATA CARO. REC00225 

IF FHRTINTT) IS NOT = -1 (NTT-O, I CALCULATE INTEGRATION CONSTANTS REC00226 

FROM THE ENTHALPY AND FREE ENERGY (OR S) WHICH HAVE JUST BEEN READREC00227 


PROCESS COEFFICIENTS 


IF 

(FHRTINTT) 

* EQ . I 

-1.0)) NTT - 0 





REC00228 

00 

200 ID - NWORD, 

4 





R6C00229 

IF 

( I WORD (ID 1 

.EO. 

IBLNK) GO TO 200 





R6C00230 

IF 

( I WORD! 10) 

.EQ. 

IT) GO TO 110 





REC00231 

NDT 

* 1 







REC00232 

IF 

( IWORDI ID) 

.EQ. 

IPNCH) GO TO 710 





REC00233 

IF 

(IWORDI ID) 

.EO. 

IHHD1.0R. I WORD (ID) 

.EQ. 

IHHD2) GO 

TO 

150 

REC00234 

IF 

( IWORDI 10 ) 

.EQ. 

IHH1 .OR. I WORD 1 1 D ) 

• EO. 

IHH2OG0 

TO 

155 

REC00235 

IF 

I IWORDI ID) 

.EQ. 

ISC) GO TO 160 





REC00236 

IF 

I IWORDI ID) 

.EO. 

1 SRC I GO TO 165 





REC00237 

IF 

I IWORDUO) 

.EQ. 

1H ) GO TO 140 





REC0023B 

IF 

(IWORDI ID) 

.EQ. 

I HR) GO TO 145 





REC00239 


ANALYZE Cl I COEFFI C I ENTS ) AND El (EXPONENTS) LABELS. 

INDEX TO STORE VALUES IN C AND EX ARRAYS. 

IWO * IALSI6, IWORDI 10) ) 

AN * AND! MASK* I WD) 

IF INN .EQ. I WD ) GO TO 107 
NN * I ARS I 24, IWO) 

GO TO 108 

107 NN * I ARS I 30, IWD) 

108 IF (NN .GT. 15) GO TO 1018 
LABEL * IARSI30, I WORD U Oil 
IF (LABEL .EQ. IE) GO TO 120 
IF (LABEL .EO. IC) GO TO 130 

1018 WRITE (6.10191 IW0RDCI01. WORDIID) 


USE NUMBFR AS 


REC00240 

REC00241 

REC00242 

REC00243 

REC00244 

R6C00245 

REC00246 

REC00247 

REC00248 

REC00249 

REC00250 

REC00251 

REC00252 

REC00253 


REC G0254 

L01 9 FORMAT !1H0,A6, 39H IS AN INCORRECT LABEL FOR THE NUMBER — , E16 . 8, REC00255 


l 31 H. THUS THE VALUE WAS IGNORED. 
LINES * LINES ♦ 3 

IF (LINES .GE. 55) CALL PAGEIO (LINES) 
GO TO 200 

TEST! 17) — PUNCH COEFFICIENTS 
T10 TESTtlT) - .TRUE. 

NOTS » NOTS ♦ l 

IF (WCTRD( 10) .LE. TCCNTC) ) GO TO 200 
NTC * NTC + 1 
TCINTCI - WORD! 10) 

GO TO 200 


) 


TEMPERATURE RANGE FOR WHICH COEFFICIENTS 
.EQ. 1) GO TO U4 
WORD (10) 

WORD (ID) 


TJ1 TO TJ2 
110 IF ( NDT 

IF (JT.NE.l) TJl 
IF (JT.EO.l) TJ2 
JT * 1 
GO TO 200 
114 NWORD » ID 
GO TO 210 

120 EX( NN I - WORO(ID) 

NEX = NEX ♦ 1 
GO TO 200 

DIVIDE COEFFICIENTS BY R IF NO REDUCE LABEL ON METHOD 
130 IF ( .NOT.TSTRED) WORD(ID) - WOROUD)/R 


REC00256 
REC00257 
REC00258 
REC00259 
REC00260 
REC00261 
RECD0262 
REC00263 
REC00264 
REC00265 
REC00266 
REC00267 
REC00268 
ARE GOOD. REC00269 

REC00270 
REC00271 
REC00272 
REC00273 
REC00274 
REC00275 
REC00276 
REC00277 
REC00278 
REC00279 
REC00280 
CARD! TSTRED*F).REC0028t 
REC00282 


323 


38 2 

387 

390 

395 

403 

408 



WORD ( 1 D )/R 


C TEST f 18 ) — ABSOLUTE VALUES FOR ENTHALPY. 

C( LEVEL *NN ) » WORDUD) 

GO TO 200 

140 IF C .NOT .TSTREO I WORDUD) * WORDUDl/R 

145 TEST! 181 » .TRUE. 

IF I ASINDT.NE.O.I WRITE <6.1461 

146 FORMAT I 45H0ENTHALPY IS ABSOLUTE — ASINOT SHOULD * 0. I 

LINES * LINES + 2 

155 HCOEF - WORDUDJ 
GO TO 200 

150 IF < .NOT. TSTRED 1 WORDUD) « WORDIIDl/R 
GO TO 155 

160 IF < .NOT. TSTREO) WORDUD) * WORO(ID)/R 
165 SCOEF * WORDUD) 

200 CONTINUE 
GO TO 50 
C 

C240 

C 

210 IF! .NOT.TSTCOI GO TO 601 
NF1 * 6 
NF2 * 7 
220 NT1 * NT 

IF << ASINDT.EO.O. l.OR.TESTt 19) ) GO TO 240 

IF < ASINDT.GE.TJl.AND.ASINDT.LE.TJ2) GO TO 230 

IF < ABSC ASINDT-298. 15). GT. ( .01 ) . OR. H298HR. EG. 0 . ) GO TO 240 

SPECH * H298HR*R 

TEST* 19) - .TRUE. 

GO TQ 240 
230 NT1 * NT ♦ 1 

TINT1) » ASINOT 

240 I * NIT 

241 IF (TIIl.LT.TJl .OR. T(I).GT.TJ2) GO TO 400 
245 CPR ( I ) * 0.0 

HHRTT * 0.0 
SR « 0.0 
C 

C CALCULATE FUNCTIONS FROM EQUATION 
DO 300 J * 1. NEX 
248 TEX * 1.0 
C 

C NTT - T IF AN ENTHALPY AND ENTROPY HAS BEEN READ FOR THE PURPOSE OF 
C CALCULATING THE INTEGRATION CONSTANTS. IF THESE VALUES HAVE NOT 

C BEEN READ. NTT * 0. 

IF (NTT.EO. 0) TT * T(I) 

IF IEXCJ) .NE. 0.0) TEX * TT **EX!J) 

IF(EXIJ).EQ.<-1.) ) HHRTT -HHRTT + C I LEVEL * J) *TT *ALQG( TT ) 

IF<EX(J J.NE.l-l.) ) HHRTT -HHRTT + C < LEVEL .J) /< EX < J ) +1 . 0 1 *TEX 

IF* < I .GT. NT) GO TO 300 
CPRII) - CPR ( I ) + C ( LEVEL * J ) * TEX 

IF t TEX .EQ. 1.0) SR ■ CCLEVELtJ) * ALOGtTT ) + SR 
IF (TEX .NE. 1.0) SR * SR + C < LEVEL* J ) /E Xt J) * TEX 
300 CONTINUE 

IF(NTT.EQ.O) GO TO 350 

HCOEF - (HHRTINTT) - HHRTT) *TT 

SCOEF - FHRTI NTT) - SR + HHRTINTT) 

NTT a 0 
GO TO 245 

350 IF (I .GT. NT) GO TO 450 

HHRTII) - HHRTT + HCOEF/TII) 

FHRTI I ) - SR ♦ SCOEF - HHRTII) 

IF tl.LE.NTl NIT » 1+1 
400 IF (I .EQ. NT!) GO TO 490 
I - I ♦ 1 
GO TO 241 

450 SPECH * (HHRTT • ASINOT ♦ HCOEF) * R 
TEST! 19) - .TRUE. 

C 

C250 

C 

C LEVEL * INDEX FOR TEMPERATURE INTERVALS. 

490 C I LEVEL * NF1 ) - HCOEF 
C I LEVEL *NF 2 ) » SCOEF 
NOTS - NOTS - 2 

IF KNOTS. LE.O) .OR. LEVEL. EQ.INTC-l) ) GO TO 500 

DO 216 K - 1* NOTS 

LEVEL - LEVEL ♦ 1 

IF ITJ2.LE. TCI LEVEL)) GO TO 216 

DO 214 NN - 1, 7 

CILEVEL.NN) - C ( LEVEL-1 ,NN ) 

IF I T J l .GE *TC I LEVEL ) ) C (LEVEL- 1 , NN) - 0 
214 CONTINUE 
216 CONTINUE 

500 IF I ICARD .NE. NSUB) GO TO 600 
NOT * 0 
JT - 0 

LEVEL » LEVEL *1 
NEX * 0 
NOTS * 0 
GO TQ 3000 

600 TEST! 9) - .TRUE. 

601 RETURN 
END 
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SUBROUTINE ATOM ATOMOOOl 

C ATOM0002 

COMMON NAME ( 2 1 • SYMBOL (70) * A TMWTI70I .R.HCK.ELECTR, I CARO, I WORD! 51 , ATOM0003 

1 WORD ( 4) » TEST! 20) «WE IGHT *F0RMLA(5) ,MLA(5) , BLANK, ELEMNTI 70 ) * ATOM0004 

2 NATON, NT ,CPR(202),HHRT< 2021 , ASI NDH, T ( 202 I * AS INDT ,FHRT( 202 J * ATOM0005 

3 SCONST,NOATMS,MPLACE(70),LPLACE(70),NMLA(70) •NOFILE, ATOM0006 

4 SPECH, T APE ( 202 , 3 ) » PTMELT • PE X f 10) »TRANGE( 10 1 , TCONST , NKI ND, AT0M0007 

5 NF» L INE S, I TR • NTMP, AG( 70 I * GG 1701 ,NIT, PI «H298HR, I HEAT , JF( 5 ) AT0M0008 

c AT0M0009 

C260 ATOMOOIO 

C ATOMOOH 

AT0M0012 
ATOM0013 


DIMENSION AJI400) ,ANU(400) ,G(400) , NN< 400 ) , TEMPJ 14 I ,TEMPNU(4) 

DIMENSION 0(2031* T000TC203), XTDQ0TI203) 

OATA NTEMPR/ 6HTEMPER/ , NFIX /6HFIXEDN/, i FI LL/4HFI LL/» NON/3HNON/ATOMOOI4 


DATA IBLANK/XH ✓, IP/2HIP/,LG/6HGLABEL/ 

LOGICAL TEST, TSTFIL ,GLABEL 
LINES * LINES * 2 

INITIALIZE TO NO CUT-OFF AND NO FILL 
KUTOFF * NON 
TSTFIL - .FALSE. 

GLABEL - .FALSE. 

CHECK FOR FILL AND CUTOFF ( KUTOFF I ON METHOD CARO. 
DO 7 1-1*4 

IF( IMORDI Il.EQ. I F ILL ITSTFIL - .TRUE. 

IF (IWORD(I).EO.LG) GLABEL-. TRUE. 

IFC IWORDI I ). EG. NTEMPR I KUTOFF - NTEMPR 
IF( IWORD(t) .NE.NFIX) GO TO 7 
NFIXED - WORD ( I ) 

KUTOFF - NF IX 
7 CONTINUE 
K-0 

ALNWT-ALOG< WEIGHT)* 1.5 
NFIRST - 0 


C 

C270 
C 
C 
C 


CALL INPUT TO READ AND LIST A DATA CARD. 

10 CALL INPUT ( L INE S) 

IF (NFIRST. NE.OI GO TO 12 
NSUB - ICARD 
NFIRST • 1 

12 IF ( ICARD. NE. NSUB) GO TO 50 

DO 40 1-1,4 

IF! (WORD! D.NE.IP) GO TO 13 
PI « WORD! I ) 

GO TO 40 

13 IF ( I WORD! I I.EO.IBLANK) GO TO 40 
K - K4-1 

NNI K ) * I WORD ( 5) 

IF (NNIK).EO.O .AND. KUTOFF. NE. NON) GO TO 30 


AT0M0040 

AT0M0015 

AT0M0018 


AT0M0019 

ATOM0020 


AT0M0021 

AT0M0022 

AT0M0023 

AT0M0024 

AT0M0025 

AT0M0026 

AT0M0027 

AT0M0026 

AT0M0029 

ATOM0030 

AT0M0031 

AT0M0032 

AT0M0033 


AT0M0036 
AT0M0037 
AT0M003S 
AT0M0039 
AT0M0041 
AT0M0042 
ATQM0043 
AT0M0044 
AT0M0045 
AT 0M0046 
ATOM0047 
AT0H0048 


VALUES ARE READ WITH ALPHANUMERIC FORMAT. 
STORE IN A J ARRAY. 


CHANGE TO NUMBER AND 


26 



HALF - 0. 

ATOM0049 



TSFT - 0 

AT0M0050 



DO 14 MLK « 1,6 

AT0M0051 



LOOK - IARS (30*1 WORD (IM 

AT0M0052 

59 


IF (HALF.EO.t .51) GO TO 16 

AT0M0053 



f WORD! I ) « I AL S ( 6* I WORD ( I ) ) 

ATOM0054 

65 


IF ( LOOK ■ EO. 27) HALF - .5 

AT0M0055 



IF (LOOK. LT. 10) I SFT - ISFT*lO+LOOK 

ATOM0056 


14 

CONTINUE 

ATOM0057 


16 

AJ ( K I - ISFT 

ATOM 005 8 



IF (LOOK .EO. 5) A J ( K ) « AJ(KI ♦ HALF 

ATOM0059 



*F (GLABEL)AJ(K) - ( AJ ( K ) -1 . ) /2. 




G( K I » 2.*AJ(K) ♦ 1. 

ATOM0060 



ANU(K) - WORD! I ) 

AT0M0061 



IF ( (WORO( I ).EO.O. I .AND. ( K.GT. 1) ) ANU(K) - ANU(K-l) 

AT0M0062 



GO TO 40 

AT0M0063 


30 

WRITE! 6, 31 1 IWORDI I ) ,NN(K) 

ATOM0064 

94 

31 

FORMAT I 19H0ERR0R IN DATA — J - *A6,6X* 7HLEVEL -,I3 ) 

ATOM0065 



LINES - L INES+2 

AT0M0066 


40 

CONTINUE 

AT0M0067 



GO TO 10 

AT0M0068 


50 

KLAST - K 

AT0M0069 




AT0M0070 


to 


ATOM0071 


SORT ENERGY LEVELS IN INCREASING NUMERICAL OROFR. 



75 

J«l 

ATOMOOT4 


76 

M-J 

ATOM0075 


77 

DO 79 I-J*KLAST 

ATOM0076 



IF ( ANU{ M )— ANU( I ) ) 79*79, 78 

ATOM0077 


78 

H-I 

ATOM0078 


79 

CONTINUE 

ATOM0079 



I FI M-J ) 80,81,80 

ATOM0080 


80 

TEMPY-ANU(M) 

ATOM0081 



ANU( M )-ANU( J ) 

ATOM0082 



ANU( J ) -TEMPY 

AT0M0083 



TEMPY-G(M) 

AT0M0084 



GIMI-G(J) 

ATOM0085 
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GIJI-TEMPY 
KTEHPY-NNIM1 
NN(M)*NN(JI 
NN( J l-KTEMPY 
TEHPY * AJfHI 
AJ I Ml « A J( J > 

AJIJ1 * TEHPY 

81 J*J«-I 

IF I KL AST— J I 82.82,76 

82 CONTINUE 
NNIKLAST+ll * 0 
AJIKLAST+ll * 0.0 
G(KLAST+1J * 0.0 
ANUIKLAST+ll * 0.0 

IF C .NOT. TEST! 1411 GO TO 1087 
WRITE I 6,10821 

1082 FORMAT I 1H0.4X, 1HN.6X, 1HJ , 7X, 1HG, 5X.13HENERGY LEVEL 
1HJ, 7X» 1HG.5X, 13HENERGY LEVEL 1 
LINES * LINES ♦ 2 
DO 1085 I * l, KLAST , 2 
INN * I + 1 


AT0M0086 
AT0H0087 
ATOM0088 
ATOM0089 
ATOM 0090 
ATOH0091 
AT0H0092 
AT0M0093 
AT0M0094 
AT0H0095 
ATOM0096 
AT0M0097 
AT0M0098 
AT0H0099 

ATOMOIOO 
,12X»1HN,6X* 1ATOM0101 
ATOM0102 
ATQM0103 
AT0M0I04 
AT0M0105 


WRITE (6,1083 l(NN(INI«AJ(INI,G(IN> « ANU( IN), 
1083 FORMAT (2(16, F8. 1 ,F8. 1,F 14.3, 10X11 
LINES » LINES ♦ l 

1085 IF (LINES. GE. 55) CALL PAGE IDUINES! 

1087 IF( KUTOFF ,NE .NF I X I GO TO 100 
IF(NFIXE0«GE.NN( 1 1 1 GO TO 100 
WRITE! 6, 99)NN( 1 ) 


IN 


I ,INNI 


ATOM0106 

AT0M0107 

ATOM0108 

ATOM0109 

AT0M0110 

AT0M0111 

ATDM0112 


99 FORMAT! 57H0SINCE FIXEON IS LESS THAN FIRST N, FIXEDN IS SET EOUAL AT0M0113 
1 , I 3, 5H C280I AT0M0114 

NFIXED * NN( 1 I AT0M0115 

LINES « L INES+2 ATOM0116 

100 IF (.NOT.TSTFIL) GO TO 160 AT0M0125 

C AT0M01I7 

C290 ATOH01 IS 

C ROUTINE FOR ASSIGNING TO LAST LEVEL OF EACH PRINCIPLE QUANTUM NUMBER, ATOM0119 
C PQN, THAT WEIGHT WHICH GIVES PQN THE TOTAL SUM OF 2J*1, OBTAINED FR0MAT0M0120 
C THE FORMULA A*N*N. I IGNORES PQN*S LOWER THAN GROUND STATE, AND, WHEN AT0M0121 
C NECESSARY, USES SPECIAL NUMBER FOR SUM OF 2J+1 FOR PQN OF GROUND AT0M0122 

C STATE. AT0M0123 

C AT0M0124 


INDX * JFC11 
1102 WRITE (6,1011 

101 FORMAT ( 7X.1HB, 9X« 1HN,3X,15HPRED* $UH(2J+1?,3X.14HACT. SUMI2J+11, 
13X, 4HDIFF* 5X, 9HMAX LEVEL, 3X.16H2J+1, MAX LEVEL 1 

LINES * LINES + 1 

IF (LINES .GE.551 CALL PAGEIO (LINESI 
K - 1 

NN1 * NNI II* 

102 KUREN * NNI K I 
SUM * 0.0 

L * 1 

DO 150 J*K, KLAST 
IF (NN( J 1 .LT.01 GO TO 150 
IF (NN( J J - KUREN 1 110,105,110 
105 SUM * SUM+GIJ 1 
M * J 

NNI J I * — NNI J 1 

IF ( J.NE.KLASTI GO TO 150 

GO TO 115 

110 IF (L .NE. 11 GO TO 114 
L * 0 
K * J 

114 IF IJ .NE. KLASTI GO TO 150 

115 IF (KUREN. EO.NN 1 I GO TO 120 
TEMPY * KUREN*KUREN 

FORM * AGI INDXI*TEMPY 
GO TO 125 

120 FORM * GGI INDXI 
125 OIFF * FORM -SUM 

IFIKUREN.LT .NNI I DIFF * 0.0 
NNM * — NNI M I 

IF (OIFF. GT. 0.01 G( Ml * G( Ml +DIFF 

WRITE 1 6, 1321 AGI (NDX I , NNM .FORM .SUM, DIFF, ANU(MI ,G(MI 
132 FORMAT (F9.1.I9 . F13. I ,F1 7. 1 ,F12. 1 ,F14.4,F9. 1 1 

LINES * LINES ♦ 1 

IF (LINES .GE.551 CALL PAGEID (LINESI 
IF IL .NE. 1) GO TO 102 
GO TO 160 
150 CONTINUE 
C 

C300 

c 

160 IF ( ASINDT.NE.0.01 GO TO 162 
NT1 - NT 
GO TO 200 
162 NT1 * NT4-1 

TCNTII - ASINOT 


AT0M0129 
ATOM0130 
AT0M0131 
AT0M0132 
AT0M0133 
AT0M0134 
AT0M0135 
AT0M0136 
AT0M0137 
AT0M0138 
AT0M0139 
AT0M0140 
AT0M0141 
ATOM0142 
AT0M0143 
AT OHO 144 
AT0M0145 
ATOM0146 
AT0M0147 
AT0M0148 
AT0M0149 
A70M0150 
AT0M0151 
AT0M0152 
AT0M0153 
AT0M0154 
ATOM0155 
ATQM0156 
ATOM0157 
AT0M0158 
AT0M0159 
AT0M0160 
AT0M0161 
AT0M0162 
ATOM0163 
AT0M0164 
ATOM0165 
AT0M0166 
ATOM0167 
ATOM0168 
AT0M0171 
AT0M0172 
AT0M0173 
AT0M0174 
AT0M0175 
ATOM0176 


144 

149 

159 

168 


173 

176 


223 

229 


M * INDEX FOR T. K - INDEX FOR ELECTRONIC LEVELS. 

200 DO 300 M*NIT,NT1 ATOM0177 

205 1*0 ATOM0178 
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JJ - 1 


AT0N0179 


CALCULATE THE PARTITION FUNCTION AND DERIVATIVES FOR EACH ELECTRONIC 
LEVEL ANO TEMPERATURE. 


DO 206 K*1,KLAST 




AT0M0180 


X*( HCK/T(H> )*ANU( K ) 




AT0M0181 


I F( X— 85. ) 214,212,212 

IF ( .NOT .TEST( 14 1 ) GO TO 260 




AT0M0182 


WRITE (6,213) 




AT0M0183 

261 

FORMAT ( 5 OH J NOT ALL LEVELS WERE USED. 

X 

IS GREATER 

THEN 85. 

1 AT0M0184 


LINES * LINES + l 




AT0M0185 


IF (LINES .GE.55I CALL PAGEID (LINES) 




AT0M0186 

264 

GD TO 260 




AT0M0187 

I F ( KUTOFF.N E.NTEMPR ) GO TO 219 




AT0M0188 


IFIPI.NE.O. ) GO TO 215 




ATOM0189 


WRITEI6, 1215) 




AT0M0190 

272 

FORMAT ( 33H0 IONIZATION POTENTIAL IS MISSING) 


ATOM0191 


RETURN 




AT0M0192 


THERM* P K — T ( M ) /HCK 




ATOM0193 


IF ( ANU( K ) - THERM) 240,240,217 
IF ( .NOT. TEST! 14) ) GO TO 260 




AT0M0194 


WR ITE(6,218)THERM 




AT0M0195 

280 

FORMAT ( 58HJALL LEVELS HAVE BEEN USED 

TO 

THE THERMAL 

BINOING 

ENERGYAT0M0196 



1 F12.3I 

LINES * LINES ♦ l 

IF (LINES .GE.55) CALL PAGE ID (LINES) 
GO TO 260 

219 IF(KUTOFF.NE.NFIX) GO TO 240 

220 IF( IABS(NN(K) ).LE.NFIXEO) GO TO 240 

221 JJ - 0 

GO TO 206 
240 1*1 + 1 

Of I )»G(K)*EXP(-1.*X) 

TDQOTf I ) *0( I l*X 
XTOODT ( I)*TOOOT(I )»X 

245 IF( Q( 1 1-0. IE- 9) 246* 246*206 

246 1F{ X— 2*0) 206,206,247 

247 I F( XTDOOT ( I 1-0. IE-9 ) 248,248,206 

248 IF ( .NOT. TEST( 14)1 GO TO 260 
WRITE! 6, 249 ) 


AT0M0197 
AT0M0198 
AT0M0199 
AT0N0200 
AT0M0201 
ATQM0202 
AT0M0203 
AT0M0204 
AT0M0205 
AT0H0206 
A i unu^ur 
AT0H0208 
ATOH0209 
AT0M0210 
AT0H0211 

AT0H0212 


249 FORMAT l 72HJN0T ALL ASSIGNED LEVELS WERE USED, Q AND DERIVATIVES AAT0M0213 

IRE TOO SMALL ) AT0M0214 

LINES * LINES + 1 AT0M0215 

IF (LINES • GE .55 ) CALL PAGEID (LINES) AT0M0216 

GO TO 260 ATOM0217 

206 CONTINUE AT0M0218 

1260 IF ( .NOT. TEST! 14) I GO TO 260 

IF (JJ.EO.O) WRITE (6,222) NFIXEO AT0M0219 

222 FORMAT ( 28HJALL LEVELS USED THROUGH N * 15) AT0M0220 

IF (JJ.NE.O) WRITE (6,1262) AT0M0221 

1262 FORMAT (50HJALL ASSIGNED LEVELS HAVE BEEN USED 1AT0M0222 

LINES - LINES + 1 AT0M0223 

IF (LINES • GE .55) CALL PAGEID (LINES1 AT0M0224 

C ATOM0225 

C310 AT0M0226 

C CALCULATE TOTAL 0, DERIVATIVES, ANO THERMODYNAMIC FUNCTIONS FOR T. 

C AT0M0227 

260 QSUM*0.0 ATOM0228 

TDQDTS-0.0 ATOM0229 

XTDODS-O.O AT0M0230 

J*1 ATOM0231 

DO 261 Il*l,J AT0M0232 

QSUM=QSUH+Q( I ) ATOM0233 

TDQDTS* TDQDTS+TDQDT (II AT0M0234 

XTDOOS* X TDQDS + XTDQDT! I ) AT0M0235 

261 1*1-1 ATOM0236 

262 IF (TDQDTS - 0.1 E-9) 263,264,264 AT0M0237 

263 TMP * 0.0 AT0M0238 

GO TO 265 AT0M0239 

264 TMP*TOODTS/QSUM AT0M0240 

265 HHRT(M)«THP+2.5 AT0M0241 

IF( M .GT .NT) GO TO 301 ATOM0242 

CPR(M)*2. 5+XTDQDS/Q SUM -TMP*TMP AT0M0243 

FHRT(N)* ALOG( QSUM1+2. 5*AL0G(T(M) ) +ALNWT +SCONST AT0M0244 

IF 1 .NOT. TEST! 14) ) GO TO 300 

WRITE (6,270) T( M ) ,C PR( M) ,HHRT (M) , FHRTI M) AT0M0245 

270 FORMAT ( IX, 1 HT,F11 .2, 6X , 4HCP/R ,F1 2 . 6,6X, 8HH-H0/RT , Fll . 6, 6X, 8HF-H0/ AT0M0246 

1RT.F12.6) AT0M0247 

LINES * LINES ♦ 1 AT0M0248 

IF (LINES . GE • 55 ) CALL PAGEID (LINES) AT0M0249 

WRITE (6,271) X,QSUM, TDQDTS, XTDQOS AT0M0250 

271 FORMAT ( IX, 1HX,F12.7,6X,4HQSUN,F12.7,6X,9HT(0Q/DT )S,F13.7,6X, 10HXT ATOM0251 


1 ( DQ/DT )S,F13.7) 

LINES * LINES ♦ 1 

IF (LINES . GE . 55 ) CALL PAGEID (LINES) 

300 CONTINUE 
GO TO 302 

301 SPECH * HHRT( NT 1 )*R*ASI NOT 

TEST ( 19) — ENTHALPY HAS BEEN CALCULATED FOR T 
TEST! 9) — FUNCTIONS HAVE BEEN CALCULATED. 

TEST( 19) - -TRUE. 

302 TEST( 9 1 * .TRUE. 

RETURN 

END 


ON FORMULA CARD. 


AT0M0252 

AT0M0253 

AT0M0254 

AT0M0255 

AT0M0256 

AT0M0257 


AT0M0258 

AT0M0259 

ATOM0260 


283 


314 


317 


325 

327 


331 


354 

360 


367 

368 


371 


356 


39 



c 

c 

c 

c 

c 

c 

c 


c 

C320 

C 


SUBROUTINE POLY POLYOOOI 

IF TEST IS TRUE — P0LY0002 

TESTWI II MOLECULE IS NON-LINEAR POLY0003 

TESTWI2I RIGIO ROTATOR-HARMONIC OSCILLATOR APPROXIMATION POLY0004 

TESTWI 3) SECOND ORDER CORRECTIONS ARE CALLED FOR P0LY0005 

TESTWI 4 1 PENNINGTON ANO KOBE APPROXIMATION POLY0006 

TESTWI 5 1 JANAF METHOD FOR DIATOMIC MOLECULES POLYOOOT 

TESTWI 6) SPECIES HAS EXCITED ELECTRONIC STATES 

COMMON NAME! 2) ♦ SYMBOL! 70) ,ATMWTI70» ,E,HCK, ELECTR, I CARD, I WORD! 5 1 1 PQLY0008 

1 WORD! A). TEST! 20) * WE IGHT » FOR ML A 15) ,MLA(5) , ANY, ELEMNT I 70 > , POLY0009 

2 NATOM*NT ,CPR I 202) »HHRT f 202 ) * ASINOH*T 1 202) , AS I NOT, FHRTC 202 I , PQLY0010 

3 SCQNST,NOATMS,MPLACE(701,LPLACE(70),NMLA(70),NDFILE* POLYOOll 

4 SPECH. TAPE! 202. 3) . PTMELT. PEX 1 10) . TRANGE C 10 ) .TCONST. NKI ND. P0LY0012 

5 NF,LINES,ITR,NTMP,AG(70),GG(701,NIT,PI,H298HR,IHEAT,J5(5) POLY0013 

COMMON /WCOMMN/ VC 201 . DNI 201 .NDI 20) .XI 6. 6) .YC6.6.6 ) .NNU, ALFAI6 I . P0LY0014 

1 ALFBC6). ALFCC6). GC6I, WXf 6) . BETAC6I. A* B. C. RH, D. WF, W. P0LY0015 

2 SYM, STWT, TOO, THETAC 5) , TESTWI6 ) *R( 20 ,3) , S 1 20,3 ) ,QL( 3) , 0. QLN, DO, POLY0016 

3 ODO, LABEL, OTOT.OLNTOT.OOTOT .DDQTOT.CORT .AIJ(6,6),AIII.AI(6) , NSUBP0LY0017 

P0LY0016 

P0LY0019 

PQLY0020 

DIMENSION IEI5), RIC6) P0LY0021 

LOGICAL T6STW, TEST P0LY0022 

EQUIVALENCE (IWD.WD) P0LY0023 

DATA IRR H0/4HRR HO/, JANAF /5H JANAF/ .NRRH02/6HNRRA02/ POLY0024 

DATA IPK/5HPANDK/, BCONV/2. 7988898/, BLANK/1H /, NRRA01/6HNRRA01/P0LY0025 

POLY0026 

INITIALIZE FOR EACH SET OF METHOD AND OATA CARDS. 

DO 10 I * NIT, NT 


CPR (II 
HHRTII) * 
10 FHRTC II * 
HHRTCNT + 
FHRTC NT ♦ 
SYM * 1.0 
DO 1005 I 
1005 TESTWI I ) * 
r 

: CHECK METHOD 

DO 800 I * 


0.0 
0.0 
0.0 
II - 
1 ) * 


0.0 

0.0 


- 2,6 

.FALSE. 


1,4 


P0LY0027 
POLY0028 
P0LY0029 
POLY0030 
POLY0031 
P0LY0032 
POLY0033 
POLY0034 
P0LY0035 
POL Y0036 
P0LY0037 
P0LY0038 
P0LY0039 


IF 

I IWOROI I ) 

.EO. 

IRRHO) 

GO TO 12 

POLY0040 

IF 

I I WORD! I ) 

.EG. 

NRRH02) 

GO TO 13 

POL Y0041 

IF 

I IWORDC I ) 

.EQ. 

IPK) 

GO TO 14 

POLY 0042 

IF 

I IWOROI I) 

• EQ. 

JANAF) 

GO TO 15 

POLY 0043 


IF I IWORDC II.EQ.NRRA01) GO TO 21 
.800 CONTINUE 

WRITE 16,19) 

19 FORMAT! 50H0METHOD CODE WAS NOT RECOGNIZED, USED NRRA01, C320 


12 TESTWI 21 
GO TO 21 

13 TESTWI 3) 
GO TO 21 

14 TESTWI 4 > 
GO TO 21 

15 TESTWI 5) 


.TRUE. 


.TRUE. 


-TRUE. 


.TRUE. 


.TRUE. 

IF I NOATMS.GT .2 ) TESTWI 2 ) 

21 WRITE 16, 22 )WE IGHT 

22 FORMAT I 15H0M0LECULAR WT.*F10.5) 

NFIRST * 0 

LINES * LINES ♦ 4 
C 

C330 

C CALL INPUT TO READ AND PRINT CONTENTS OF INPUT CARD. 


28 CALL INPUT! L INES 1 

IF (NFIRST .NE. 0) GO TO 1010 

INITIALIZE FOR FIRST CARD ONLY. 

NFIRST * 1 
NSUB * ICARD 

INITIALIZE FOR EACH ELECTRONIC LEVEL. 
1001 STWT * 1.0 
T 00=0.0 
A*Q.O 
B*0.0 
C»0.0 
RH*0.0 
0 * 0.0 
WF*0.0 
W *0.0 

THETA! 3) * 0.0 
A 1 1 1* 0.0 
DO 1002 1*1,6 


POLY0044 
P0LY0045 
POLY0046 
P0LY0047 
POLY0048 
POL Y0049 
P0LY0050 
P0LY0051 
P0LY0052 
P0LY0053 
P0LY0054 
POUYO055 
POL Y0056 
POL V0057 
P0LY0058 
P0LY0059 
POLY0060 
P0LY0061 
P0LY0062 
P0LY0063 
P0LY0064 
POLY0065 
P0LY0066 
POLY0067 
P0LY0068 
P0LY0069 
POL Y0070 
P0LY0071 
POLY 0072 
POLY 0073 
POLY0074 
P0LY0075 
POL Y0076 
POLY0077 
P0LY0078 
POLY0079 
POLY0080 
PQLY0081 
P0LV0082 
P0LY0083 


45 


55 


5B 


40 


UOU UU<J <JOU<J uuu 


ALFA! II *0.0 
ALFBI I >*0.0 
ALFCI 11-0.0 
Rtf X I * 0.0 
G( I 1-0.0 
WX( I)*0.0 
BETA! I 1-0.0 
DO 1002 J-l*6 
X( I*J)*0.0 
A I J( I* J ) * 0.0 

1002 CONTINUE 

DO 1003 1-1*20 

vi n-o.o 

NDI I ) - l 

1003 ONI II » 1.0 
00 1004 1-1*4 
DO 1004 J* 1* 4 
DO 1004 K— 1*4 

1004 Yl I* J*K )— 0.0 
LEVEL » X WOROI 5 ) 

ASSUME LINEAR MOLECULE WITH 3N-5 FREOS. IF THERE IS AN A OR IA 
IN THE INPUT CHANGE TO 3N-6 — SEE C350. 

NV « 3*N0ATMS - 5 
TESTW(l) » .FALSE. 

GO TO 1015 

IF CARO COLUMNS 1-6 OR 79-80 ARE DIFFERENT FROM PREVIOUS CARO* GO 
TO 1051 IC380I. 

1010 IF! ICARO.NE.NSUB .OR. LEVEL .NE. IW0RDI5)) GO TO 1051 


SOME LABELS FOR DIATOMICS CHECKED AND VALUES STOREO IN SECTION C370 
OATA T1/2HT0/* SYMNO/5HSYMNO/* ST ATWT / 6H STATWT / * I V/6HOOOOOV/. 

1 NX/6H00000X /* NY/6HOOOOOY/* A1/2HA0/* B1/2HB0/* C1/2HC0/, 

2 IA/2HIA/* IB/2HIB/* RHO/3HRHO/*IG/6HOOOOOG/. I ALPHA/ 6 HO ALP HA/* 

3 WE/2HWE/* WEXE/4HMEXE/* WE YE/4HHEYE/ • WEZE/4HWEZE/, 0E/2HDE/* 

4 I ALFAB/6H0ALF AB/, W1/2HW0/, T2/2HT0/, A2/2HA0/* B2/2HB0/, 

5 C2/2HC0/* D1/2HD0/* Dll 1 /4HD000/ * D2/2HDO/* D222/4HD000/* 

6 WX 1/3HWX 1/ * WX2/3HWX2/ » WX3/3HWX3/* WX4/3HWX4/, BETA1/5HBETA1/, 

7 BETA2/5HBETA2/* 8ETA3/5HBETA3/* W2/2HW0/, BE/2HBE/* IC/2HIC/* 

8 I ALFAA/6H0ALFAA/* I ALFAC /6H0ALFAC/, NAI J/6HOOOOOA/ 

IN DO LOOP THRU 1050 (C370) CHECK EACH LABEL ON DATA CARD AND STORE 
ATA. 

1015 DO 1050 ID - 1*4 
IWD - I WORD! ID ) 


IF 

(WO 

• EO. 

BLANK ) 

GO 

TO 1050 

IF 

(WD 

• EO. 

Tl .OR. 

WO 

.EO. T2) GO TO 100 

IF 

(WD 

.EO. 

STATWT) 

GO 

TO 102 

IF 

(WD 

.EO. 

SYMNO ) 

GO 

TO 104 

IF 

(WO 

.EO. 

B 1 .OR. 

WD 

.EQ. B2 .OR. WD . EO. 

IF 

(IWORDIID) .EO. 

IB) 

GO TO 108 


ISHFT1 * I ARSI 6* I WORD I ID ) ) 

IF I ISHFT1.E0.I ALPHA .OR. I SHF Tl. EQ. I ALFAB .OR. ISHFT1.E0. I ALFAA 
1 .OR. ISHFT1.E0. I ALFAC) GO TO 1030 
C 

IF INOATMS .EQ. 21 GO TO 1045 
IF IWD .EQ. RHO I GO TO 110 

IF IWD .EO. D1 .OR. WD .EQ. Dllll GO TO 112 

IF IWD .EQ. D2 .OR. WO .EO. 0222) GO TO 112 

IF I I WORD (ID) .EO. IA) GO TO 1020 
IF I IWORDI ID) .EO. IC) GO TO 114 
IF (WO .EO. A1 .OR. W0 .EO. A2) GO TO 1023 

IF (WO .EO* Cl .OR. WD .EO. C2) GO TO 116 

IF (WD .EO. W1 .OR. WD «E0. W2 ) GO TO 118 

ISHFT5 - I ARS (30, IWORDI ID)) 

IF I ISHFT5 .EO. IV) GO TO 1033 

IF (1SHFT5 .EO. NX .OR. I SHFT5 .EQ.NAI J) GO TO 1040 
IF I ISHFT5 .EO. NY) GO TO 1044 
IF IISHFT5 .EO. IG) GO TO 1025 

1018 WRITE (6*10191 IWORDIID), WORD (ID) 

1019 FORMAT I 1H0* A6* 39H IS AN INCORRECT LABEL FOR THE NUMBER— ,E16. 

1 36H. THUS THE VALUE WAS IGNORED* C340 ) 

LINES » LINES ♦ 3 

IF (LINES .GE. 55) CALL PAGEID (LINES) 

GO TO 1050 
C 

C350 

C 

100 TOO - WOROI ID) 

GO TO 1050 


P0LY0084 
POLY0085 
POLY 00 86 
P0LY0087 
P0LY0088 
POL Y0089 
POLY0090 
POLY0091 
POLY0092 
P0LY0093 
POLY0094 
POLY0095 
P0LY0096 
POLY 0097 
POLY0098 
P0LY0099 
P0LY0100 
P0LY0101 
P0LY0102 
P0LY0103 
P0LY0104 
P0LY0105 
POLY0106 
P0LY0107 
POLYOIOS 
POL YO 109 
POLYOllO 
POLYOUl 
POLY Oil 2 
P0LY0113 
POLY 01 14 
POLY0115 
POLYOL16 
. P0LY0141 
P0LY0117 
POL Y0118 
POL YO 119 
P0LY0120 
POL YO 121 
P0LY0122 
P0LY0123 
P0LY0124 
POLY0125 
P0LY0126 
DP0LY0127 
P0LY0128 
P0LY0129 
P0LY0130 
P0LY0131 
POL YO 132 
POLY0133 
POL YO 134 
P0LY0135 
POLY0136 
POLY0137 
P0LY0138 
P0LY0139 
POLY0140 
POLY 0142 
P0LY0143 
P0LY0144 
P0LY0145 
P0LY0146 
POL YO 147 
P0LY0148 
P0LY0149 
P0LY0150 
POLY0151 
P0LY0152 
POL Y0 153 
P0LY0154 
POLY0155 
POLY0156 
8* POLY0157 
P0LY0158 
P0LY0159 
POLY0160 
P0LY0161 
P0LY0162 
POL Y0163 
POL Y 0164 
P0LY0165 
POLY0166 


137 


172 


186 


191 


41 



102 STWT * WORDIID) 



P0LY0167 


GO TO 1050 



P0LY0168 


104 SYM * WORD* 10) 



P0LY0169 


GO TO 1050 



P0LY0170 


106 B * WOROl ID) 



P0LY0171 


GO TO 1050 



POLY0172 


108 B * BCONV/WORDI ID) 



P0LY0173 


GO TO 1050 



POL YO 174 


110 RH * WOROIIO) 



P0LY0175 


GO TO 1050 



POL Y0176 


112 0 * WOROl 10) 



POLY 01 77 


GO TO 1050 



P0LY0178 


114 C - BCONV/WOROIIO) 



POLY0179 


GO TO 1050 



P0LY0180 


116 C * WOROl ID ) 



P0LY0181 


GO TO 1050 



POL Y0182 


118 WF - WOROl 10) 



P0LY0183 


GO TO 1050 



P0LY0184 


C 



P0LY0185 


C IF IA OR A LABEL* NON-LI NEAR 

t MOLECULE • 

P0LY0186 


1020 A * BCONV/WOROIIO) 



P0LY0187 


1021 TESTWCl) * .TRUE. 



POL Y0188 


NV * 3*NQATMS - 6 



POL YO 189 


GO TO 1050 



P0LY0190 


1023 A * WOROl ID) 



P0LY0191 


GO TO 1021 



P0LY0192 


1025 IWO * IALSI 12* IWOROUD)) 



P0LY0193 

233 

IWD * IARS130. IWO) 



P0LY0194 

235 

Gt IWO) * WOROl 10) 



P0LY0195 


GO TO 1050 



POLY 01 96 


1030 I BACK 1 * IALSI 6* ISHFT1) 



POL YO 197 

241 

I - IWOROUD) - I BACK 1 



P0LY0198 


IF (I .GT. 10) I * 1 



POL Y0199 


IF 1 ISHFTl.EQ.l ALPHA .OR. 

ISHFT1 • EO. I ALFAB) ALFB1I) « WOROIIO) 

P0LY0200 


IF 1 ISHFT l.EO. I ALFAA) ALFA! I ) 

* WOROIIO) 

P0LY0201 


IF 1 ISHFT1.E0.IALFAC) ALFC(I) 

* WOROIIO) 

P0LY0202 


GO TO 1050 



POLY 0203 


C 



POL YO 204 


C360 



P0LY0205 


C STORE FREQUENCY AND DEGENERACY ACCORDING TO LABEL. 

POLY0206 


C 



P0LY0207 


1033 J * 1 



P0LY0208 


00 1034 I * 1.5 



P0LY0209 


IWD * IALS (6* IWD) 



P0LY0210 

264 

IEfJ) * IARS1 30* IWO) 



POL Y021 1 

266 

IF ( IE1 J ) *E0. 48) GO TO 

1034 


POLY0212 


J * J + l 



P0LY0213 


1034 CONTINUE 



P0LY0214 


I * 1 



P0LY0215 


KV * I El 1 ) 



P0LY0216 


1*1 + 1 



POLY0217 


IF IIE1I) *GE. 10) GO TO 

1035 


POLY0218 


KV * 10 * KV + IE1 I) 



P0LY0219 


IF1KV .GT. NV) GO TO 1038 



P0LY0220 


1035 V1KV) * WOROl 10) 



P0LY0221 


1036 1*1+1 



POLY0222 


IF 1 I .GT. J) GO TO 1050 



P0LY0223 


IF 1 IEI I ) .GE. 10) GO TO 

1036 


P0LY0224 


ONI KV ) * IEI I ) 



P0LY0225 


N01KV) * IE 1 I ) 



POL YO 226 


GO TO 1050 



P0LY0227 


1038 WRITE 16*1019) IWOROUD)* 

WORDUD) 

P0LY0228 

303 

TEST1 16) * .TRUE. 



P0LY0229 


RETURN 



POLY 02 30 


C 



P0LY0231 


C STORE XIJ ACCORDING TO LABEL 



P0LY0232 


1040 IWO * IALS 16* IWOROUD)) 



P0LY0233 

308 

IX * I ARS 130. IWO) 



P0LY0234 

310 

IWO * IALS 16. IWO) 



P0LY0235 

312 

JX = IARS1 30* I WD) 



P0LY0236 

314 

IF1 ISHFT5.EQ.NX) XIIX.JX) 

* WOROIIO) 

P0LY0237 


IFI ISHFT5.EQ.NAIJ) AIJIIX 

• JX) 

* WOROIIO) 

P0LY0238 


GO TO 1050 



P0LY0239 


C 



POLY0240 


C STORE YIJK ACCORDING TO LABEL. 


P0LY0241 


1044 IWO * IALS 16* IWOROUD) ) 



P0LY0242 

32 7 

TY * I ARS 130. IWD) 



P0LY0243 

329 

IWO * IALS 16*1 WO ) 



P0LY0244 

331 

JY * I ARS 130. IWD) 



POL Y0245 

333 

IWD * IALS 16.IWD) 



P0LY0246 

335 

KY * I ARS 130. IWD) 



POLY0247 

337 

Y1IY.JY.KY) * WOROUD) 



P0LY0248 


GO TO 1050 



POLY0249 




UU UU UUOUu 


c 

C370 

SOME 


INPUT FOR DIATONIC NOLECULES. 


1045 I FI WD . EO* WEI GO TO 300 

IF! WO .EO. WEXE .OR* WD .EO. WXI) GO TO 301 

I FI WD «E0. WEYE .OR. WO «E0. WX21 GO TO 302 

I FI WO .EO. WEZE .OR. WO .EO. WX3I GO TO 303 

IF! WO .EO. WX4) GO TO 304 

IFI WD .EO. BETA!! GO TO 305 

IF! WO .EO. BETA2I GO TO 306 

IFI WO .EO. BETA3I GO TO 307 

IFI WD .EO. DEI GO TO 308 

GO TO 1018 

300 W * WORD I 101 
GO TO 1050 

301 WXI II * WOROI 10 I 
GO TO 1050 

302 WXI 21 * WOROI ID I 
GO TO 1050 

303 WXI 31 » WOROI ID I 
GO TO 1050 

304 WXI 41 * WOROI ID I 
GO TO 1050 

305 BETA! II * WOROI 101 
GO TO 1050 

306 BETA! 2 1 - WOROI 101 
GO TO 1050 

307 BETAI3I - WOROIIOI 
GO TO 1050 

308 0 * WOROI 10 1 
GO TO 1050 

1050 CONTINUE 


DATA FOR CARO HAS BEEN STORED. 
GO TO 28 


GO TO 28 IC330I TO READ NEXT CARO. 


380 

DATA FOR ELECTRONIC LEVEL HAS BEEN STORED — CALCULATE SOME VARIABLES 
REOUIREO IN EOUATIONS. 

1051 NNU * O 

IF I ICARD.EO.NSUBI TEST Wl 6 I * .TRUE. 

I * O 

IF INOATNS .NE. 21 GO TO 1052 


DIATONIC NOLECULES — 

VIII * W - 2.0*WXI1I ♦ 3. 25*WX 121 + 5.0*WXI3I ♦ 7.5625+WXI4) 
XII. II * -WXI1I+4.5*WXI2)+14.5*WXI3> 

Yll.l.ll - WXI 21 ♦ 8.*WX 1 3 I 
AII1I - ALF8I1I-ALFBI2>-.75*ALFBI3> 

AIJI1.1I * -ALFBI 21-1. 5*ALFB(3J 


C CALCULATE ANO CHECK NUNBER OF FREOS. INNUl. NAXINUN 6 FOR NQN-RRHO. 
1052 NNU * NNU ♦ l 

1*1 + NDINNU1 

IF I VI NNU 1 .EO. 0.01 GO TO 1094 

IF II .LT. NV1 GO TO 1052 

IF tl.GT.NVI GO TO 1094 

IFI B.EO. 0.01 GO TO 1098 

IF I NNU.GT • 6) TESTWI2I - .TRUE. 

IF INOATNS. EQ. 21 GO TO 2054 
IF I TESTWI 211 GO TO 1092 
I FI TESTW! Ill GO TO 1053 
GO TO 1056 
C 

C DIATONIC NOLECULES. 

2054 D*I I BETA I 3 1*0. 54-BETA 1 21 I *0. 5+BETA 111 I *0.5+0 
I FI D.EO.O .0 1 0*14.0*8**31 /W**2 
BEJ* B 

B*l I ALFBI 3 1*0. 5+ALFB 121 1*0. 5-ALFB I II l *0. 5+B 
IF I. NOT. TESTWI 51 1 GO TO 9054 


JANAF CORRECTIONS 
AII1I * AII1) /BEJ 
XU, II * Xtl.ll*V(ll/W 
RH * 4.* SORT! D/BE Jl/ IHCK*VIl 1 1 
GO TO 1059 

IF RRHO, SKIP TO 1090 IC410I. 

9054 IF ( TESTWI 211 GO TO 1090 


OIATONICS — NOT JANAF. 


POLY0250 
P0LY0251 
POL Y0252 
POL Y0253 
POLY 02 54 
P0LY0255 
P0LY0256 
P0LY0257 
POLY025B 
POL Y0259 
P0LY0260 
POLY0261 
POLY0262 
P0LY0263 
P0LY0264 
P0LY0265 
P0LY0266 
POLY 0267 
P0LY0268 
POLY 0269 
P0LY0270 
P0LY0271 
P0LY0272 
P0LV0273 
P0LY0274 
P0LY0275 
P0LY0276 
P0LY0277 
POLY027B 
P0LY0279 
P0LY0280 
P0LY0281 
POLY 0282 
P0LY0283 
P0LY0284 
P0LY0285 
P0LY0286 
P0LY0287 
POL Y028S 
P0LY0289 
POLY 0290 
P0LY0291 

P0LY0292 
P0LY0293 
P0LY0294 
P0LY0295 
P0LY0296 
P0LY0297 
P0LY0298 
P0LY0299 
POL Y0300 
P0LV0301 
POL YO 302 
P0LY0303 
POL YO 304 
P0LY0305 
P0LY0306 
P0LY0307 
P0LY0308 
POL YO 309 
POL Y0310 
P0LY03U 
P0LY0312 
P0LY0313 
P0LY0314 
P0LY0315 
POL Y0316 
P0LY0317 
P0LY0318 
P0LY0319 
P0LY0320 
POL YO 321 
P0LY0322 
P0LY0323 
P0LY0324 
POLY0325 
POLY0326 
POLY0327 
POL YO 328 
P0LY0329 
P0LY0330 
POLY0331 


444 


43 


IFITESTWI4!) AK1 1 -ALFBf I l-2.*ALFBf 2I-3.25*ALFB 13) P0LY0332 

Aldl - AUD/B P0LY0333 

AIJCl.ll « AUd,l)/B P0LY0334 

AIII - -ALFBI3I/B POLY0335 

IF ( TESTWC 4 1 ) AKM * CAM1I ♦ 1.1**111) P0LV0336 

GO TO 1059 P0LY0337 

C POLY0338 

C LINEAR POLYATOMIC MOLECULES — POLV0339 

1056 DO 1058 I * l.NNU P0LV0340 

Aim - ALFBdt/S P0LY034I 

00 1057 J * l.NNU P0LY0342 

CON * DNCJI/2. P0LY0343 

IF (I.E0.J) CON - DNIU POL Y0 344 

AIJCI.JI - -AIJC1.J1/B P0LY0345 

IF (J.LT.I) AI J( I v J) * AIJCJ.I) P0LY0346 

1057 Aim * Aim ♦ C0N*AI Jl I * Jl POLY0347 

IF ( TESTWC 41 ) Aid) - (Add ♦ l.)*AICI> POLV0348 

1058 CONTINUE P0LY0349 

C P0LV0350 

C390 POLY0351 

C LINEAR AND DIATOMIC MOLECULES — CAL UL ATE RHO AND THETAS. P0LY0352 

C POLY0353 

1059 IF CRH .EQ. 0.0! RH * « 2.0*0 )/ CB**2 • HCKI POLY0354 

THETAC l )•( HCK*B 1/3. 0 POLY0355 

THETA < 2 1 -THETAC 1 1 **2*0.6 P0LY0356 

THETA (31- I THETAC 1I*THETAC 2 1*4. 01/7.0 POLV0357 

IF ( .NOT • TEST (1411 GO TO 1075 POLY035B 

WRITE 16*2053 1 B* D, RH POLY0359 

2053 FORMAT t 5H0B0 - F 10.6* 5X. 4HD0 « *E13. 6.5X.5HRH0 « *E13.6 I P0LY0360 

DO 2055 I - 1* NNU P0LY0361 

WRITE (6* 20571 I. AM II P0LY0362 

2057 FORMAT I 4H0AI C I 1* 3H 1 * * F10.7! P0LY0363 

2055 WRITE 16,2056! II * J *AI JC I , Jl , J*1 , NNU! P0LY0364 

2056 FORMAT! IHO, 6C 2HAC 11*1H,I1,3H) - F10.7.5X11 P0LY0365 

GO TO 1075 P0LY0366 

C P0LY0367 

C NON-LINEAR MOLECULES— P0LY0368 

1053 IFCC.E0.0.0! GO TO 1100 P0LY0369 

IF CTESTC 141 1 WRITE (6*30561 A*B*C*RH POLY0370 

3056 FORMAT ( 5H0A0 * F 10.6* 5X,4HB0 - FiO. 6 .5X.4HC0 - F10.6 *5X*5HRH0 -P0LY0371 
IE15.8! P0LY0372 

DO 1054 I - l.NNU P0LY0373 

AICIl - (ALFACI1/A ♦ ALFBCIl/B ♦ ALFCC I l/CI/2. P0LY0374 

IF f TESTWC41 1 AICIl - f .5*AI 1 1 1+1. 1 *A I C 1 1 + < C ALFAC 1 1/ AI **24-1 ALFBd POLY0375 
2 1 / B 1 **2+C ALFC ( I l/C 1**2 1 /4. POL Y0376 

IF CTESTC 1411 WRITE (6*30551 A I ( 1 1 *ALFA(I! .ALFBCII .ALFCC 1 1 * I P0LY0377 

3055 FORMATC 5H0AI - F10.7.4X. 9HALPHA A - FIO. 7* AX* 9H ALPHA B - F 10.7, 4X, P0LY0378 


1 9HALPHA C 
1054 CONTINUE 
ASQ-A**2 
BSQ-B**2 
CS0-C**2 
THETAdl 
THETAC 2) 


F 10.7* 4X, 3H I 


111 


P0LY0379 

POLY0380 

P0LY0381 

P0LY0382 

POLY0383 

POLY03B4 

P0LY0385 


<2.0*(*+B+Ct - A*B/C - A*C/8 - B*C/A) • CHCK/12.0) 

( 10. 0*C ASQ+BSQ+CSQ) ♦ 12.0 * CA*B ♦ B*C ♦ A*C! 

1 - 12. 0*( AS0*B/C ♦ A*BS0/C ♦ BS0*C/A ♦ B*CS0/A ♦ AS0*C/B ♦ A*CSQ/BPOLY0386 

2 1 ♦ 7.0* ( A SO* B SO /C SO ♦ AS0*CS0/BS0 ♦ BSO»CSQ/ASO) I * HCK**2/480.P0L Y03B7 



THETAC 31 - 0.0 


P0LY0388 

1075 

IF CTESTC 1411 WRITE 

(6*3075) ( I • THETAC 11*1*1*3! 

P0LY0389 

3075 

FORMAT C1H0 3( 6HTHETAC I1.3HI - . F9. 8*4X1/) 

POLY0390 

C 



POLY 0391 

C400 



P0LY0392 

C 



P0LY0393 


I F ( NOATMS.EO. 2 1 GO 

TO 1092 

POLY 0394 

C 



P0LY0395 

C POLYATOMIC MOLECULES. 

MAKE X AND Y MATRICES SYMMETRIC. 

P0LY0396 


DO 8 I * l.NNU 


P0LY0397 


DO 8 J - l.NNU 


P0LY0398 


XCJ.II * XCI.JI 


POLY0399 

8 

CONTINUE 


POLY0400 


DO 2 I-l.NNU 


P0LY0401 


00 2 J-I.NNU 


P0LY0402 


DO 2 L -J* NNU 


P0LY0403 


IF (I.NE.J! GO TO 5 


P0LY0404 


IFCJ-L) 4.2.4 


POL Y0405 

5 

IF C J-L 1 6*4*6 


P0LY0406 

4 

Y( J ,L * I 1-YC I « J, L 1 


POL Y0407 


YCL*I*J1-YCI*J*L) 


POLY 0408 


GO TO 2 


POLY 0409 

6 

Y( I*L* J l-YC I* J.LI 


POLY0410 


YU.I.LI-YC I. J.LI 


P0LY0411 


Y( J *L * I l-YC !* J*L 1 


POLY0412 


Y( L • I • J l-YC I, J.LI 


POLY0413 


YCL.J* I l-YC I*J*Ll 


P0LY0414 


490 


493 

495 


506 


523 


533 


44 



2 CONTINUE P0LY0415 

IF (TESTI14I) WRITE (6.2004) (( (I ,J,L ,Y(I •J.LI . L-JtNNU)* J- I , NNU ). POLY 04 16 


1 I-l.NNU) 

2004 FORMAT ( 51 3H VI 1 1* IH. ,1 I ,1H, • 1 1 ,3H) «,F7.3,3X)) 

C 

: APPLY X CORRECTIONS FOR NRRAOl AND 2. 

00 990 I * l. NNU 
DO 990 J - I. NNU 
CY * 0.0 

DO 910 K - l. NNU 

IFI (K.NE. I).AN0.(K.NE. j))CY-CY+DN(K)«YC I,J,K)/2. 
910 CONTINUE 

IFI I.E0.J)X(I«l)*X(I,I)+Y(I«I,II*(1.54DN(I)+3. •♦CY 


POLY04I7 
POLY04I8 
P0LY0419 
POLY0420 
POLY 0421 
POLY0422 
P0LY0423 
POLY0424 
POL Y0425 
POL Y 042 6 
P0LY0427 

IF(I.NE.J)X(ItJ)~XU,J)+ON(I •♦l.l*Y(I • I • J) +( DNU I ♦!• ) *Y< I » J. J ) ♦CYP0LY0428 


990 CONTINUE 


C GII CORRECTIONS 

DO 860 I-l.NNU 
IF(G( D.EO.O.) GO TO 860 
GII) * G(II ♦ 8 

IF I TESTWt 4) I Xfl.I) * X(I,U*GUI/3. 

IF I .NOT.TESTWI 4) ) VI I ) - VII) - GII) 

860 CONTINUE 
C 

C4I0 

C INTERMEDIATE OUTPUT — XIJS AND LEVEL. 

C 

1092 IF I .NOT. TEST! 14) ) GO TO 1091 
WRITE (6.2860) 

2860 FORMAT (8H0XI1.J) ) 

DO 2861 I *1. NNU 

2861 WRITE (6.2862) ( XI I , J ) , J*l ,NNU) 

2862 FORMAT ( IH .6F10.4) 

WRITE (6,1093) LEVEL 

1093 FORMAT ( 8H1LEVEL * ,12) 

1091 IF ( TESTWI 5 ) ) TESTWt 4) - .TRUE. 

C 

C CALL L INK 1 TO CALCULATE PARTITION FUNCTION AND DERIVATIVES FOR LEVEL. POLY0452 
1090 CALL L INK 1 POLY0453 


P0LY0429 
P0LY0430 
POLY0431 
POLY0432 
P0LY0433 
POLY 0434 
POLY 0435 
P0LY0436 
P0LY0437 
POLY043B 
POLY0439 
P0LY0440 
POLY0441 
P0LY0442 
P0LY0443 
POLY 0444 
POLY 044 5 
POL Y0446 
P0LY0447 
POL Y0448 
POLY 0449 
POLY 0450 
POLY0451 


IF CC 1-6 


POLY0454 

CC1-6 OF PREVIOUS CARD, ASSUME THERE IS ANOTHER ELECTRONI POLY0455 


LEVEL AND GO TO 1001 (C330I. 

: OTHERWISE CALCULATE FUNCTIONS FROM 0 AND DERIVATIVES (VALUES FOR 

: MULTIPLE ELECTRONIC STATES HAVE BEEN SUMMED). 

IF ((CARD .EO. NSUB ) GO TO 1001 
NT1 * NT 

IF ( ASINDT.NE.O.) NTl-NT+l 
00 1000 I * NIT.NT1 
IF (.NOT. TESTWI 6) I GO TO 999 
0 * FHRTI I) 

FHRT(I) - ALOGtOt 
DO * HHRTdl/O 
HHRT(I) - DO 

CPR(I) * CPRdl/Q ♦(2.-D0>*00 

999 FHRT(I) * FHRT(I) + 1. 54AL05 (WEIGHT) ♦ 2.5*AL0G(T ( I ) I ♦ SCONST 
HHRTII) - HHRT(I) ♦ 2.5 
1000 CPRII) * CPR(I) ♦ 2.5 

IF (ASINDT.EO.O.) GO TO 4001 

: CALCULATE ENTHALPY FOR ASSIGNED T ON FORMULA CARD. 

SPECH - HHRT(NT1)4E*ASIN0T 
TEST( 19 ) * .TRUE. 

4001 TEST( 9) * .TRUE. 

RETURN 

1094 WRITE ( 6, 1095 ) 

1095 FORMAT ( 37H0 WRONG NUMBER OF NU-StV-S) , C410 ) 

GO TO 2000 

1098 WR I TE( 6, 1099) 


POLY0456 

POLY0457 

P0LY0458 

POLY0459 


POL Y 0460 
POL Y0461 


P0LY0463 


P0LY0462 


POLY 0466 
P0LY0467 
P0LY0468 
P0LY0469 
POLY 0470 
P0LY0471 
POLY 04 72 
P0LY0473 
POLY 0474 
POLY0475 


GO TO 2000 
1100 WRITEC6, U01) 


2000 TEST( 16 ) 
RETURN 
ENO 


.TRUE. 


590 


659 

663 

669 


674 


689 


696 


713 


OF B 

IS 

MISSING, 

C410 

I 

POLY0476 
POLY 0477 

715 

OF C 

IS 

MISSING, 

C410 

) 

POLY0478 

P0LY0479 

POLY0480 

717 






P0LY0481 



POL Y0482 
P0LY0483 


698 


45 



SUBROUTINE LINK1 


CALCULATE 0 
TESTW(l) 
TESTWI2) 
TESTWI3) 
TESTW(4I 
TESTW! 5) 


LINKOOOl 
LINK0002 
L INK0003 
LINK 0004 
LINK 0005 
LINK 0006 
L INK0007 
POLY 0007 


C 

C420 

C 


MOLECULE IS NON-LINEAR 

RIGID ROTATOR-HARMONIC OSCILLATOR APPROXIMATION 
SECOND ORDER CORRECTIONS ARE CALLED FOR 
PENNINGTON ANO KOBE APPROXIMATION 
JANAF METHOD FOR DIATOMIC MOLECULES 
TESTWI6I SPECIES HAS EXCITED ELECTRONIC STATES 
COMMON NAME! 21 * SYMBOL! 70) * ATMWT(70) •E*HCK*ELECTR*ICARD*IWORD( 51# LINK0008 

1 W0RD(41,TEST! 201 .HEIGHT, F0RMLA(5) ,MLA(5). ANY * ELEMNTI 70) * LINK0009 

2 NATOM* NT *C PR I 2021 *HHRTI 202 ) « ASI NDH* T! 202) * AS I NOT « FHRT! 202)*LINK0010 

3 SCONST*NQATMS,MPLACE (70 ) ,LPLACE( 70) , NHL A! 70) *NDFILE* LINK0011 

4 SPECH* TAPE! 202*31 *PTMELT*PEX( 10) «TRANGE(10) *TCONST*NKIND« LINK0012 

5 NF*LINES* I TR*NTMP*AG( 70 J *GG(70f * NIT LINK00I3 

LINK00I4 
LINK 0015 
LINK 0016 
LINK 0017 
LINK0018 


COMMON /WCOHMN/ VI 20) «DN(20) «N0(2O) ,X(6*6) «Y(6*6t 6 1 * NNU* ALFA! 61* 

1 ALFBI61 * ALFCI 61 * G(6)« HXI61, BETA! 61 » A* B, C, RH, D, WF* W, 

2 SYM* STMT * TOO* THETA 1 5) • TESTWI6) *R!20«3) «S( 20*31 »QL(3I *Q* QLN*DQ*L INK0019 

3 DDO, LABEL* QTOT*OLNTOT*DOTOT .DDOTOT * CORT *AI J(6*6)*AIII*AI(6) * NSUBL INK0020 


LOGICAL TESTW* TEST 
DATA LEL/6HEL ECTR/ » LH0/4HH.0./* LRR/4HR.R. /,L XI J/3HXI J/tLRHO/ 

1 3HRH0/*LTHETA/5HTHETA/*LYI JK/4HYI JK/» L ALP HA/5H ALPHA/ *LZ/4HMEZE/ 

i TEST! 141 — INTERM CARD HAS BEEN READ CALLING FOR INTERMEDIATE OUTPUT 
I FI .NOT .TEST! 141 1 GO TO 6 
DO 5 I * 1* NNU 
NND*DN( II 

5 WRITEI6, 10061 I « VI I I « NND * I * I *G ( I ) 

1006 FORMAT I 3H0VI * 1 1»3H) **F9.4*1H! .11* 1H1 6X, 1HG.2I1 , 2H *,F7.3) 

6 IF. (ASI NOT .NE. 0.01 GO TO 7 
NT1 * NT 

GO TO 8 

7 NT1 * NT l 

T ( NT1 1 * ASINOT 

00 LOOP THRU 1000IC4801 CALCULATES 0 AND DERIVATIVES FOR ELECTRONIC 
LEVEL. IT * T INDEX. 

8 00 1000 IT * NIT*NT1 
OTOT * 1.0 

OLNTOT * 0.0 
OOTOT * 0.0 
DDGTOT * 0.0 
0 - 1.0 

IF (TEST! 1411 WRITE (6*41 TUT! 

4 FORMAT! 4HLT *F9.3> 

1008 CT * HCK/T ( IT I 
DO 10 1*1* NNU 

RC 1*11 * 0.0 
U * CT • VIII 
IF (U.GE.30.1 GO TO 9 


R 1 1 


11 * RI. S(I*1I 
INDICATES FIRST OR 


SI. 


A 2 OR 3 IN THE SECOND SUBSCRIPT 


LINK 0021 
LINK 0022 
LINK0023 
LINK 0024 
LINK0025 
L INK0026 
LINK0027 
LINK0028 
LINK0029 
L INK0030 
LINK0031 
LINK0032 
LINK0033 
LINK0034 
LINK 0035 
LINK0036 
L INK0037 
LINK0038 
LINK0039 
LINK0040 
LINK 0041 
LINK0042 
LINK0043 
L INK0044 
LINK0045 
LINK 0046 
LINK0047 
LINK 0048 
LINK0049 
LINK 0050 
LINK0051 
LINK 0052 
l INK0053 


SECOND DERIVATIVE RESPECTIVELY OF RI AND SI. LINK0054 


THESE DERIVATIVES ARE USED TO OBTAIN THE DERIVATIVES OF THE Q 
CONTRIBUTIONS IN SUBROUTINE OERIV. 


R ( 1*11 * 
SCI*1) - 
R( I* 21 * 
R (1,31 
S( 1*21 
SI 1,3) 


an 


EXPI-Ul 
1* /( 1 »-R( I 
U 

« -u 

R( I* 1 )*S( 1* 1I*U 
SI 1,21*1 SI I *21 


♦ U 


1 .) 


IF( TESTI 141 1 WRITE (6*1018) U*R(I ,1) *S( ( *1 1 • I 

1018 FORMAT! 7H0 U * *E13.7, 6H R * ,E13.7* 6H S * * E13.7*3X,3HI 
112 ) 

10 CONTINUE 

IFITESTI 14) ) WRITE 16*1005) 

1005 FORMAT 1 13H0C0NTRIBUTI ON, 13X *1HQ« 15X *4HL N Q,11X*8H H-H0/RT,13X, 
14HCP/R 1 
C 

C430 

C OLN * LN Q. DO * TDLNQ/DT. DDO * T2D2ILN 01/DT2. 

C SUBROUTINE OSUM ACCUMULATES CONTRIBUTIONS OF LN 0 ANO DERIVATIVES. 


ELECTRONIC PARTITION FUNCTION— FORMULA 1. 

00 * CT*T00 

OLN * ALOG(STHT) - DO 

DOO * -2.0 * DO 

LABEL * LEL 

CALL OSUM (TEST! 14)1 

HARMONIC OSCILLATOR PARTITION FUNCTI ON— FORMULA 2. 
DO 15 I * 1, NNU 
OLN - OLN ♦ DN! I ) • AL0G(S(I«1I) 

DO * DO+DN! I ) * S( 1*21 
15 DDO * DDQ+ON! 1 1 * S(I*3) 


LINK0055 
LINK0056 
LINK0057 
LINK0058 
LINK0059 
L INK0060 
LINK0061 
LINK0062 
LINK0063 
L INK0064 
*LINK0065 
LINK0066 
LINK0067 
L INK0068 
LINK0069 
LINK 0070 
LINK 0071 
L INK0072 
LINK0073 
LINK0074 
LINK 0075 
LINK0076 
LINK 0077 
LINK0078 
L INK0079 
LINK0080 
LINK0081 
LINK 0082 
LINK0083 
LINK0084 

LINK 0086 
LINK0087 




DDQ * DDO - DO 


LINK0088 



CORT * 0. 


LINK 0089 



LABEL - LHO 


LINK0090 



CALL QSUM (TEST <141 » 


LINK0091 


c 



L INK0092 


c 

RIGID ROTATOR PARTITION FUNCTION — FORMULAS 3 AND 

4. 

L INK0093 

74 


LABEL » LRR 


LINK0094 



IF (TeSTW(l)l GO TO 20 


L INK0095 



0 * l.0/( SYN • CT • B) 


LINK 0096 



DO * 1.0 


LINK0097 



DDO * -1.0 


L INK0098 



GO TO 30 


LINK0099 



20 0 « (1.0/CT**3 * 3.1415927/ (A*B*CI) **0.5*1. 

0/ SYM 

L INK 0100 

82 


DO « 1.5 


LINK0101 



DDO - -1.5 


LINK0102 



30 OLN - ALOGfOl 



84 


CALL QSUM ITESTI14M 


L INK0103 


c 



L INK0104 


c 

6N0 RRHO CALCULATIONS. GO TO 900(0480) TO ACCUMULATE Q FOR LEVEL. 

L INK0105 

85 


IF (TESTWI2)) GO TO 900 


L INK0106 


c 



L INK 01 07 


C440 


LINK0108 


c 



L INK0109 


c 

ROTATIONAL STRETCHING— FORMULA 5. 


LINK0110 



LABEL » LRHO 


LINK0111 



OLN * RH*T(IT) 


L INK0112 



OQ * OLN 


LINK0113 



000 * 0.0 


LINK0114 



CALL QSUM (TEST (14)1 


LINK01 15 

92 


LABEL * L THETA 


LINK0116 



0*1. ♦ ( ( THETA ( 3 ) /T( IT) + THETA (2) ) /Tl IT) «• THETA(ll) / T(IT) 

L INK0117 



OLN * ALOG(O) 


L INK0117 

98 


DO * -( ( 3.*THETA( 3) /Tt IT) +2.*THETA(2) )/T( IT) 

* THETA! 1)1 /T( IT) /0LINK0118 



DDQ * (12 .*THETA( 3)/T( IT) + THETAC2) ) * 3./TUTI + THETA ( 1 ) ) * 

2./LINK0119 



1 TCIT) /O - DO**? 


LINK0120 



CALL OSUM (TEST! 141) 


LINK0121 


c 



L INK0122 


c 

VIBRATIONAL-ROTATION INTERACTION USING ALPHA CONSTANTS — FORMULAS 8 

— 10LINK0123 

105 


LABEL * L ALPHA 


L INK0124 



00 39 l-l.NNU 


LINK0125 



OL ( 1 ) *A I ( I )* DN ( I ) 


LINK0126 



CALL DERIV 11.0,0,0,0.1*0,0,0,0.0) 


L INK0127 

112 


IFI TESTWI 41 ) GO TO 39 


LINK0128 



0L( 1 1 * • 5*DN( I )*AI II )**2 


L INK0129 



CALL OERIV (1,0,0,0,0,1,1,0,0,0,01 


L INK0130 

120 


OLfl) * DNI I 1/6.* A II I )**3 


LINK0131 



CALL DERIV ( I ,0,0*0 ,0, I ,1 ,1 ,0, 0*0) 


LINK0132 

126 


OLID * DN( I )/6.*AI ( I )**3 


L INK0133 



CALL DERIV (I*I,0,0,0*I*1,I ,0,0*0) 


LINK0134 

132 


IF(TESTW( 1) 1 GO TO 39 


L INK0135 



OLI 1) * AI J( I* I ) *DN( I ) 


LINK0136 



CALL DERIV ( I* 0,0 ,0,0* I *1 , 0,0* 0,0) 


LINK0137 

139 


OL ( 1 ) *. AIJII* I)*0N(I)*Aim 


L INK0138 



CALL DERIV ( 1 , 0,0,0, 0* I *1 * I ,0, 0*0) 


LINK0139 

144 


OL ( 1 ) * A I J ( I , I )*DN( I )*AI ( I ) 


LINK 0140 



CALL OERIV (1*1*0, 0, 0*1,1* I*0,0,0) 


LINK0141 

149 


DO 37 J - 1,NNU 


L INK0142 



OL ( 1 ) * AIJI I, J)*DN(I)*DN(J) 


LINK 01 43 



IF (I.GT.JI GO TO 35 


LINK0144 



CALL OERIV (I, J,0, 0,0*1, J,0, 0,0*0) 


LINK0145 

159 


35 0L(1> * A I ( I )*A I Jf I , J ) * DN( I )* DN(J) 


LINK0146 



IF ( I *E0. J) 0LI1) * OLI 1) * 2. 


L INK0147 



37 CALL DERIV 1 I , J*0,0,0,I *1 , J,0, 0,0f 


LKNK0148 

168 


IF INOATMS .GT.2) GO TO 39 


LINK 0149 


c 



L1NK0150 


c 

FORMULA 11. 


LINK0151 



OLI 1 ) * AI 1 1 


LINK0152 



CALL DERIV ( I , 0, 0*0*0, I* I . I ,0*0*0) 


LINK0153 

174 


OLfl) * 4. * All I 


L INK0154 



CALL DERIV 1 1, I .0,0,0,! *1 *1 * 0, 0,0) 


LINK0155 

176 


OLID * AIII 


L INK0156 



CALL DERIV ( I , I * I *0*0, I* I, I * 0,0* 0) 


LINK0157 

178 


39 CONTINUE 


L INK0158 


c 



L INK 01 59 


C450 


L INK0160 


c 



LINK0161 



IF (TEST! 141) WRITE (6,40) 


LINK0162 

181 


40 FORMAT! 25H0FIRST ORDER CORRECTIONS 1 


L INK0163 



CALL OSUM ( TEST ( 14) ) 


LINK0164 

183 


CORT -1.0 


L INK0165 


c 



L INK0166 


c 

FIRST ORDER XI J— FORMULA 12. 


L INK0167 



LABEL - LX I J 


LINK0168 



DO 50 I *1, NNU 


L INK0169 



DO 50 J* I , NNU 


L INK0170 



CON - DNI I )*DN( J ) 


LINK0171 



IF (I.EO.J) CON»CON+DN(I) 


LINK0172 



44 0LI1) - CON*!— CT )*XI I * J) 


LINK0173 



50 CALL DERIV ( I, J ,0,0.0* I -J, 0,0, 0.0) 


L INK0174 

198 



CALL OSUM (TEST! 141) 

C 

C END CALCULATIONS FOR PANOK AND JANAF. 

IF (TESTWI4H GO TO 900 
C 

C FIRST OROER YIJK — FORMULA IB. 

LABEL * LYIJK 
DO 70 1*1, NNU 

DO 70 J*I,NNU 
00 70 K*J,NNU 

CON * NDC 1 1* (N0< J )+ K0tl,J))*(N0(K)+ KD(I,K)+ KDIJ.KI) 

QLt II*CON * C-rCTI *V(l,J,K) 

70 CALL OERKV U , J.K, 0*0, I, J ,K ,0, 0,0> 

CALL OSUM I TESTI 14)) 

DATA LAX/4HAXIJ/.LG/4HG+AG/, LX2 /6HIXIJI2/ ,LXY 

1 /2HXY / , LG2/5HG2,GX/,LAX2 /3HAX2/, LFERMI/5HFERMI/ 

C 

C FIRST ORDER ALPHA-XIJ INTERACTION— FORMULA 17. 

LABEL * LAX 
DO 100 1*1, NNU 
AL * AIfI)*I-*CTl 
00 100 J*1,NNU 

IF II.EQ.JIGLI l)«AL*XII,I>*2.*DN(II*(0Nin*l.) 

IF I I.NE.J tOL III* AL *XII , J)*DNII t*DNIJ) 

100 CALL DERIV II , J, 0,0*0, I .1 , J ,0,0,01 
CALL OSUM I TEST 1 141 1 
C 

C460 

C 

DO 120 l* I, NNU 
IFC G( I ).EQ.O.) GO TO 120 
C 

C GII -CORRECTION — FORMULA 16. 

LABEL * LG 

QLI1 )»GII)*(-CT)*2. 

CALL OERIV 11,0,0,0,0,1,1,0,0,0,0) 

0LI1) * 4.*Gf I)*AI( U*CT 

CALL DERIV I I , I ,0 #0, 0, I , I , I ,0, 0,0) 

120 CONTINUE 

IFI LABEL. EO.LG) CALL QSUMI TESTI 14) ) 

IF I NO ATMS . GT • 2 ) GO TO 130 
C 

C WEZE FOR DIATOMIC MOLECULES — FORMULA 15. 

LABEL * LZ 

OLID * 24.*WX 1 31* I-sCTI 

CALL DERIV 1 1 , 1,1, 1,0, 1,1 ,1 .1,0,0) 

CALI OSUM I TEST 1 14) I 
130 CTT*CT **2/2. 

tFI WF.EO.O.O) GO TO 141 
C 

C FERMI RESONANCE— FORMULA 7. 

LABEL * L FERMI 
CORT * 2. 

U * CT*2.*VI 2) 

RW* EXPI-UI 
SW* l./Il.-RW) 

CON * WF**2*CTT *RW * SW**2*SI2, 1) **2 
OLID * CON 

0LI2I * U ♦ 2.*RW*SW*U ♦ 2.*SI2,2) 

OL ( 3 ) * -U ♦ 2.*RW*SW*U*IU ♦ RW*SW*U-1.D 2.*SI2,3) 

CALL OERIVI 0,0,0, 0,0, 0,0. 0,0, 0,0) 

OLIl) * -CON 

CALL OERIV ll,0,0,0,0,0.0,0,0,0,0) 

CALL OSUM I TEST 1 14)) 

C 

C END CALCULATIONS FOR NRRA01. 

141 IFI .N0T.TESTMI31 ) GO TO 900 
IF I TESTI 14) ) WRITE 16,142) 

142 FORMAT I 26H0 SECOND ORDER CORRECTIONS I 
C 

C470 

C 

C XU - XI J INTERACTION— FORMULAS 18 ANO 19. 

LABEL * LX2 
CORT * 2.0 
DO 200 1*1, NNU 
DO 180 J*I ,NNU 
CON * ONI I )*DN! J * 

IFI l.EO.J ) CON - 2.*DNII)*lDNII)+l.) 

OL f 1 ) *CON*X 1 1 , J ) **2*CTT 
180 CALL OERIV l I, J ,0,0, 0,1 ,1 , J, J. 0,0) 

DO 200 J*1,NNU 
DO 200 K*J,NNU 

CON - (2HCDIJ*Kl)*l l*KD!I,J))*tl+KDU,K) )*NDII)*IND( J) +KDI t , J) )* 
1 1 NDI K ) +KD 1 1 » K ) ) 

OLID * CON • XII,J)*XII,K)*CTT 
200 CALL DERIV I t,J,K,0,0,I ,1 , J,K,0,0I 
CALL OSUM (TEST 1 14)) 
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LINK0176 

LINK0177 

L1NK0178 

LINK0179 

LINK0180 

LINK0181 

LINK0182 

L INK0183 

LINK0184 

LINK0185 

LINK0186 

LINK0187 

LINK0188 

LINK0189 

LINK0190 

L INK0191 

LINK0192 

LINK0193 

LINK0194 

LINK0195 

LINK0196 

LINK0197 

L INK0198 

LINK0199 

LINK0200 

L INK0201 

L INK0202 

LINK0203 

LINK0204 

LINK0205 

LINK0206 

L INK0207 

LINK0208 

L INK0209 

LINK0210 

LINK0211 

LINK0212 

LINK0213 

LINK0214 

LINK0215 

LINK0216 

LINK0217 

LINK0218 

LINK0219 

LINK0220 

LI NK0221 

L INK0222 

LINK0223 

LINK0224 

LINK0225 

L1NK0226 

LINK0227 

LINK0228 

LXNK0229 

LINK0230 

LINK 0231 

LINK0232 

LINK0233 

L INK0234 

LINK0235 

L INK0236 

L INK0237 

LINK0238 

LINK0239 

L1NK0240 

LINK0241 

LINK0242 

LINK0243 

LINK0244 

LINK0245 

LINK0246 

LINK0247 

LINK0248 

LINK0249 

LINK0250 

LINK0251 

LINK0252 

LINK0253 

LINK0254 

L INK0255 

LINK0256 

LINK0257 

LINK0258 

LINK0259 

L INK 0260 

LINK0261 

LINK0262 

L INK0263 


202 


214 216 217 

222 

227 


246 

250 


260 

264 

268 


274 

276 


282 


283 

285 

287 

291 


307 

314 315 316 317 

325 


319 


48 



XIJ - YIJK INTERACTION — FORMULAS 20 AND 21. 
LABEL - LXY 
00 300 I*l,NNU 
00 300 J*l *NNU 
DO 300 K-l.NNU 


LINK 0264 
LINK0265 
LINK0266 
LINK0267 
LINK026S 


CON » 2*1 l+KDI I,J))*(l+KD(t.KI ♦ KD( J»KI )*(ND( tl ♦ KOI I« J I )*NDI J)* LINK0269 
UNDIKI «• KDIJ.K) ♦ KOH.KH LINK0270 

0L( 1) * CON*CTT*XI I »J)*YI!«J,K) LINK0Z71 

300 CALL OERIV (I,J,K,0*0,I»I,J*J*K»0) LINK0272 

00 400 1*1. NNU LINK0273 

00 400 J-l.NNU LINK0274 

00 400 K-I.NNU LINK0275 

00 400 L*K,NNU LINK0276 

CON - I l+KDI !,J))*( l+KDI I .KI+KDI I «L I )*ND( I )*INDIJ)+KDCI,JI )*( NDI K)L INK0277 


1* KOI I,K))*(ND(LI* KD I I , L ) + KDIK,L))*2 
0L( 1 1 * CON*CTT*XI I » J )*YI I • K*L 1 
400 CALL OERIV (!»J»K*L<0«I«I,J,K,L*0) 

CALL OSUM I TEST! 141 ) 


C 

C4B0 

C 


00 500 I-1,NNU 
IF fGID.EO.O.) GO TO 500 


Gil - GI! AND GII - XU I NTERACTF nNS— FORMULAS 22 ANO 23. 
LABEL * LG2 

QLIll » 2.*G(II**2*CTT 

CALL OERIV (I,0.0,0.0,I,I,I,I,0.0) 

00 490 J*1,NNU 

CON * 4**GI II*X( I»J)*CTT 

IF (I.EO.J) CON * 16.*GII)*(GI I) +2. *X I I ,1 )| *CTT 
0LC1) * CON 

CALL OERIV (I, J, 0,0,0, I. I .1 »J,0,O) 

OLIll - CON 

IF II.E0.JI0LI1I * CTT*2.*IG(II+l2.*XII,m*GIIl 

490 CALI OERIV I I . I * J *0*0* I ,1 • I .J. 0.0) 

500 CONTINUE 

IFI LABEL. E0.LG2I CALL OSUMI TEST! 141 1 


ALPHA - XIJ - XIJ INTERACTION— FORMULAS 24 THRU 27. 

LABEL * LAX2 
DO 600 1-1, NNU 

AL - AH I )*CTT 

OLID * 4.*AL *( XI I * I l*0NI II*IDN(I l+l.l I **2 
CALL DERIV I I • f • I . I . I • 1 • I , I ,1 • I ,0) 

00 600 J*1,NNU 

IF (I.EO.J) CON * 4.*DN(l l*IDN(ll+l.) 

IF (I.NE.J) CON * DNI I l*DNI J ) 

OL(l) * CON*Xt t,J)**2*AL 
CALL OERIV II.J, 0,0,0, I. I. I. J, J,0) 

00 600 K*l,NNU 

CON * (1* KD( I » J I )*( 1+ KOI I »KI ) *NDI I )*l NDI J 1+ KDII,J))*IND(K1+ K0ILINK0315 
1 1 «K ) I LINK0316 

OL(l) - CON*AL*X( I. JI*XII ,K) LINK0317 

CALL OERIV (I,J,K, 0,0,1, 1,1, J«K«0) LINK0318 

OLIll * CON*AL*X( I* J)*X( I *KI LINK0319 

CALL OERIV (I,J,K,I,0,(,I,I,J,K,0) LINK0320 

CON * (14- KDI I * J ) )*( 1* KOI J»K I I *1 2— KOI l , K) 1 *NDI I ) *( NO I J) + KOI I • JIL INK0321 
114(114- KOI I,K))*ND(K)+ KD(I,K)+ KD(J,KI+ KOI I • Jl *KD( J, K> 1 LINK0322 


LINK0278 
LINK0279 
LINK 0280 
LINK0281 
LINK0282 
L INK0283 
L INK0284 
LINK0285 
L INK0286 
LINK 0287 
LINK028B 
L INK0289 
LINK0290 
LINK0291 
LINK 0292 
L INK0293 
LINK0294 
LINK0295 
LINK0296 
LINK0297 
L INK0298 
LINK 0299 
LINK 0300 
L INK0301 
L INK0302 
LINK0303 
LINK 0304 
LINK0305 
LINK0306 
LINK0307 
LINK0308 
LINK0309 
L INK0310 
LINK0311 
LINK0312 
LINK0313 
LINK0314 


330 


339 340 341 342 344 345 

351 


365 366 367 368 370 372 373 

379 

385 


396 


407 

415 

421 


430 


444 


448 449 450 452 

457 

461 

463 464 465 466 468 469 470 

472 


OL(l) * CON 4 AL* XII* J) * XI J ,K) 

CALL DERIV I I , J ,K *0, 0* I , I , J • J* K,0) 

600 CONTINUE 

CALL OSUMI TEST! 14) I 
900 IF ITESTMI6I) GO TO 902 
C 

C CALCULATIONS FOR SPECIES WITH ONE ELECTRONIC STATE 
C 

FHRTI IT I * QLNTOT 
HHRTI IT I « DQTOT 
CPRIIT) - DOQTOT + 2.*D0T0T 
GO TO 1000 
C 

C CALCULATIONS FOR SPECIES WITH EXCITEO ELECTRONIC STATES 
C 

902 IF I0LNT0T.LE.88.I GO TO 903 
WRITE 16,21 

2 FORMAT I 44H00 TOO LARGE TO INCLUDE EXCITED STATES- C480I 

3 IF I ICAR0.NE.NSU8) RETURN 
CALL INPUT I LINES) 

GO TO 3 

903 OTOT * EXPI OLNTOT) 

FHRTI IT) * OTOT + FHRTI IT) 

HHRTI IT) * D0T0T*0T0T ♦ HHRTI IT) 

CPRIIT) * (DOQTOT ♦ .DQT0T**2 1 *QT0T ♦ CPRIIT) 

1000 CONTINUE 
RETURN 
END 


I INK0323 
LINK0324 477 

L INK0325 
LINK0326 482 


492 


496 

499 

LINK0327 
L INK0328 
L INK0329 
LINK0330 
L INK0331 
LINK0332 


471 


49 


FUNCTION KOI t * J ) KOELOOOl 
KO - 0 K0EL0002 
IF (ItfEQ.J) KO - 1 K0EU0003 
RETURN KDEL0004 
END KDEL0005 


50 



non 


SUBROUTINE DERIV (11,12,13,14, 15, Jl, J2, J3, J4 , J5, J6 J OERIOOOI 

FIND 0 DERIVATIVES. 

COMMON /WCOMMN/ VI 209 *DN( 201 , NO (20) ,X(6,69 ,Y( 6,6,6 I ,NNU, ALFAI6 ) , WO0LO013 

1 ALFBI6), ALFC f 61 , GC6I, MX(69, BETA(69 , A, B, C, RH, D, WF, W, DERI0003 

2 SYM, STMT, TOO, THETA( 51 , TEST M(6 I ,R (20 ,3» , S( 20,3 1 , 0L« 3) • 0, QLN, 00, OERI0004 

3 DDO, LABEL, QTOT, QLNTOT, DOTOT, DOOTOT, CORT, AI J(6,69 ,AIII,AI(69, NSUB DERI0005 


C 

C490 

C 

DIMENSION 1(59, JC69 

III) - II 

1(29 * 12 

113) * 13 

1(41 * 14 

1(51 * 15 

J(19 * Jl 

J ( 2 ) * J2 

J( 3 ) * J3 

J(49 * J4 

J( 5 ) * J5 

J ( 6 ) * J6 

OATA I FERMI /5HFERMI / 

IF (LABEL. EO.IFERMI) GO TO 8 
0L( 2 1 *0. 

0L(3)»0. 

8 DO 10 IR* 1, 5 
K * K IR 9 

IF(K.EO.O) GO TO 20 
0L( 1 9 * OL ( 1 ) *R(K, 1 ) 

OLC29 * 0L(2)+R(K,21 
10 OL ( 39 * 0L( 3) +R (K, 3 9 
20 DO 30 IS *1,6 
K * J( IS 9 

IF (K.E0.09 GO TO 40 
0LI19 * OLC 1)*S(K,19 
OL ( 2) * OL(2)+S(K,29 
30 OL ( 3 9 * OL ( 39 +S (K, 3 9 
40 OLN * QLN + OL(l) 

OCORT * QL( 2 9 - CORT 

00 * QCORT*OL(ll ♦ 00 

DDO - OL(l)*(QLC39+QCORT**2 - QC0RT9 

RETURN 

ENO 


DER 10006 
DERI0007 
DERI0008 
DERI0009 
0ERI0010 
DERI0011 
0ERI0012 
DERI0013 
DERI0014 
DERI0015 
DERI0016 
DERI0017 
DERI0018 
DERI0019 
DERI 0020 
DERI0021 
0ERI0022 
DER 10023 
DERI0024 
DERI0025 
DERI0026 
DERI0027 
DERI0028 
DERI0029 
DER 10030 
DER I 0031 
DERI0032 
0ERI0033 
DER 10034 
DER 10035 
DER 10036 
DER 10038 
DERI 0039 
0ERI0040 

+ DDO 0ERI0041 

OERI0042 
DER 10043 


non 


SUBROUTINE QSUM (TEST) OSUMOOOl 

ACCUMULATE VALUES OF Q AND ITS DERIVATIVES. 


COMMON /WCOMMN/ VI20I, DN(20) *ND(20) V X(6«6) *Yf6»6.6> *NNU* ALFA( 6 ) . W00L0013 

1 ALFB( 61* ALFCf 61 * G(6)« MX(6) . BETAI6 1 • At B* C. RH, D, WF, U« 0SUM0003 

2 SYM. STWT, TOOt THETA (5) t TEST Mi 6 ) *R(20*3) *S(20*3) «OL(3) *Q*QLN*DQ* 0SUM0004 

3 DOOt LABEL* OTOT tQLNTOT tDQTOT • ODOTOT *CORT »AIJ(6*6) *A1I!*AI(6) * NSUB0SUM0005 


C OSUM0006 

C500 QSUM0007 

C 0SUM0006 

LOGICAL TEST QSUM0009 

IF (.NOT. TEST) GO TO 8 

0 * 0 . 

IF (ABSIOLNI.LE.aa.l Q*EXP(QLN) 

CPROUT * DDO ♦ 2. • DO OSUM0016 

WRITE (6*6) LABELtOtQLNtDQ* CPROUT 0SUM0017 

6 FORMAT ( 4X* A6*E2 1. 4* 3F 18.8) QSUM0016 

8 OLNTOT * OLNTOT ♦ OLN OSUM0020 

DOTOT * DOTOT * DO QSUM0021 

ODOTOT * DDO TOT ♦ DDO 0SUMOO22 

OLN * 0.0 0SUM0024 

DO * 0.0 0SUM0025 

DDO * 0.0 0SUM0026 

RETURN 0SUM0027 

END 0SUM0028 


6 

8 



c 

C5I0 

C 


12 


1064 

66 


1066 

67 


66 

69 

70 


C 

C570 

C 

120 


164 

165 

100 

184 

167 

16? 

C 

C530 

C 

166 


186 

168 

200 

201 

187 

189 

185 

180 


SUBROUTINE 0€LH OELHOOOl 

C OH NON NAME! 2) • SYMBOL I 70) .A TMWT 1 70) *R*HCK*ELECTR* ICARO • I WORD! 5 1 » 0ELH0002 

L WORD (4) •TESTI 201 *WE IGHT ,FORHLA (5) *MLA)5) * BLANK *ELEMNT) 70) • DELH0003 

2 NATOM*NT *CPR I 2021 * HHRTI 202 1 « ASI NOH* T( 202 ) * ASI NOT *FHRT 1202)# 0ELH0004 


3 SCON ST* NO ATMS * MPLACE I 70 ) *LPLACE( 701 *NNL A( 70 ) * NDF ILE* 

4 SPECH* TAPE C 606 I *PTNELT*PEX( 101 * TRANCE ( 101 • TCONST* NKINO* 

5 NF.L1NES* ITR*NTNP*AGI70> *GGI70)*NIT* PI *H298HR * I HE AT * JF 1 5 ) 
COHHON/PCH/K *NF 1* NF2 *ANS (9*151* TC <101 *NTC *NFP * LOATE * NNN* NL AST 


EQUIVALENCE I A ME * NAM) 

OATA I0ELH/6H0ELTAH/* I0IS/6HDI SSOC /• I ASH /6 HAS I NOH/* IB/1H / 

LOGICAL TEST 

INTEGER ELEMNT 

IF (TESTI 181) GO TO 67 

IF (IHEAT.EO.IB) GO TO 164 

IF( TFSTI 13I.AND.ASINDT.E0.298. 151 TEST( 81 TRUE . 

IF I TESTI 6)1 GO TO 66 
IF ITESTI 19)1 GO TO 120 
WRITE (6*1064) 

FORMAT ( 42H0I NSUFF ICIENT OATA FOR AN HO VALUE* C510 ) 

RETURN 

IF I .NOT. TESTI 17)) GO TO 1066 

CALL PUNCH 

TESTI 17) - .FALSE. 

IFI TEST 115)1 CALL LEAST 
RETURN 

IF (TESTI 8) I GO TO 69 

IF ( IHEAT.FQ. I ASH .ANO. ASINDT.E0.298. 15) GO TO 66 
AS I NON - 0. 

GO TO 66 

TESTI 13) - .TRUE. 


TEST 18) 

00 70 I ■ 
HHRTI I) - 
FHRTII) - 
GO TO 66 


.TRUE. 

1* NT 

HHRTI I) - ASINDH/IRPTIII) 
FWTI I )♦ A5IN0H/IR*T 1 1 1 1 


IF (IHEAT 
IF I IHEAT 
IF (IHEAT 
WRITE! 6* 165) 


• EO. 

• EO* 
EO. 


I ASH) GO TO 167 
(DELHI GO TO 166 
ID I S ) GO TO 166 


DELH0005 
0ELH0006 
0ELH0007 
OELH0008 
DELH0009 
DELH0010 
0ELH0011 
DELH0012 
OELH0013 
0ELH0014 
DELH0015 
DELH0021 
DELH0022 
0ELH0023 
0ELH0024 
DELH0025 
DELH0026 
OELH0027 
DELH0028 
DELH0029 
0ELH0030 
DELH0031 
0ELH0032 
0ELH0033 
DEL H0034 
OELH0035 
0ELH0036 
DELH0037 
0ELH0038 
0ELH0039 
OELH0040 
OELH0041 
0ELH0042 
0ELH0043 
DELH0044 
OELH0045 
DEL H0046 
OELH0047 
0ELH0046 
0ELH0049 
0ELH0050 


FORMAT) 92H0EITHER ASINDH.DELTAH*HF 296*1 PATOM*OR OISSOC WAS NOT F0UDELH005L 


1ND ON THE FORMULA CARO* C520 
LINES - LINES ♦ 2 
TESTI 8 ) - .FALSE. 

RETURN 

ASINDH * ASINDH - SPECH 


I 


TESTI 81 
GO TO 66 


.TRUE. 


•EO. IDELHI ASINDH -ASINDH- SPECH 
.EO. I0ISI ASINDH —ASINDH- SPECH 
1, NKINO 


LPLACEIJI 
MPLACE) J ) 


IF ( IHEAT 
IF (IHEAT 
00 180 I « 

J - JFCII 
REWIND 3 

IFI IHEAT .EO. IDELHI N 
IF) IHEAT .EO. IOISI N 
IF (N.EO.O) GO TO 200 
CALL SKFILF (3*NI 
READ! 3) NAM* HZERO* PT.TNO 
IFI AS INDT.EO. 0. 0) GO TO 165 
NOT * TNO ♦ 0.0000001 
KK * 3*N0T 

READ (31 (TAPEIKI* K » 1* KK) 

00 186 K * 1* NOT 

IF I TAPE! K I .GE.ASINDT-0. 0000001 ) GO TO 187 
CONTINUE 
WRITF (6*1681 

FORMAT) 50H0HHRT FOR ASI NOT WAS NOT FOUND ON EF TAPE* C530 
GO TO 100 

WRITE (6*201) FORMLA 1 1 ) 

FORMAT I 1H0*A6* 40HDATA WERE NOT FOUNO ON EF TAPE, C530 
GO TO 100 
KK * NOT ♦ K 

HA * TAPE! K ) *R* TAPE IKK I ♦ HZERO 

IF) IHEAT .EO. IOELHIAS!NDH"ASINOH*FLOAT(NLA(I))*HA/FLOAT(NMLA< J)) 

IF (IHEAT .EO. IDIS) ASINDH * ASINDH ♦ FLOAT I NLA (1)1 *H A 

GO TO 180 

HA « HZERO 

GO TO 189 

CONTINUE 

GO TO 162 

END 


) 


0ELH0052 
OELH0053 
0ELH0054 
OELH0055 
0ELH0056 
0ELH0057 
0ELH0056 
0ELH0059 
0ELHO060 
DEL HO 061 
DEL H0062 
0ELH0063 
OELH0064 
0ELH0065 
0ELH0066 
OELH0067 
DELH0068 
DEL HO 069 
DELH0070 
0ELH0071 
0ELH0072 
0ELH0073 
0ELH0074 
0ELH0075 
0ELH0076 
DELH0077 
DELH0076 
0ELH0079 
tDELHOOBO 
DELH0081 
DELH0082 
DELH0083 
DELH0084 
DELH0085 
DELH0086 
0ELH0087 
DELH0088 
0ELH0089 
DELH0090 
DELH0091 
OELH0092 
DELH0093 
DELH0094 


15 


19 

23 


56 


71 


81 

82 


88 


100 


102 


53 



SUBROUTINE TABLES 


TABL0001 


C 

C540 

C 


LIST FIRST 2 TABLES OF THERMODYNAMIC FUNCTIONS. TABL0002 

TABL0002 

COMMON NAME! 2) •SYMBOL I 70) * ATMWTI70) *R*HCK,ELECTR* ICARDflUOROI 51 • TABL0003 

1 WORD (4) • TEST! 20) • WEIGHT *F0RMLA(5) *MLAI 5 ) » BLANK* ELEMNT ( 70 ) • TABL0004 

2 NATOMf NT *CPR I 202) *HHRT ( 202 ) *ASE NDH« T( 202) • AS I NOT »FHRT( 202)* TABL 0005 

3 SCONST*NOATMS*MPLACE 170 )*LPLACE(70I • NHL AC 70) » NOFILE* TABL0006 

4 SPECH* TAPE (202*3) *PTMELT*PEX( 10) .TRANGEI 10) *TC0NST*NKIND* TABL0007 

5 NF.LINES* I TR*NTMP* AG( 70) *GG(70) * NIT* PI *H298HR TABL0008 

TABL0009 
TABL 0010 
TABL00L1 

LOGICAL TEST TABL0012 

EQUIVALENCE (IT.TI) TABL0013 

DIMENSION FMT (12) *FF (261 *HEAOl (22 ) *HEAD2 (20) TABL0014 

OATA FMT ( 1 ) /4HI 1H / *FMTI 3) /6HF12. 7* /* FMTI 11 )/ IH)/ * TABL0015 

1( FF( I )*I-1*10)/55HI9*3X,F12.2*F14.7,F14.4,F14.6*A6*8X,F16.7,F16.4*TABL0016 
2A6* /*(FF(J)*J*11*26)/ 96HIH-H291 F-H298) /RT H/RT* 12X*5H-F/RT TABL0017 

3H-H298-IF-H298I H,14X*2H-F (H-HO) (F-HO)H-HO -IF-HO/RT /, TABL0018 

4( HEADK K ) *K-1, 21 ) / 126HI 1H08X* 1HT 8X*4HCP/R0X • 24H( H~H0 )/RT TABL0019 

5 ( H— H298) /RT* 6X3HS/R8X* 25H- (F-HO )/RT - IF-H298) /RT *8X*4HH/RT* TABL0020 

612X.5H-F/RT //) /* (HEA02 (L) *L-1* 19) /114HC 1H08X*1HT*10X,2HCP* 1 IX* TABL 0021 

7 19H H— 0 H-H29810X*1HS,9X* 23H-IF-H0) -I F-H298) .TABL0022 


81 OX * 1HH* 14X* 2H—F //) / 

WRITE! 6* 11 ) NAME! 1 ) *NAME( 2 ) 
11 FORMAT ( 1H0* 2A6) 

C 

C550 

C 

00 2000 I * 4,8 
2000 FMT(I) - FFC3) 

FMT (9) - FF( 7) 

00 2005 K-15, 16 
HEAD1IK + 3) * FF(K-l) 

HEAD2( K+2 ) * FFOC+5) 

HEADK K ) « FF(10) 


HEADK K-7) 
2005 HEAD2CK-1) 
HEADK 20) 
HEAD2I 8 ) * 


« FF(10) 
* FF ( 10) 
» FFC16) 
FFf 10) 


TABL0023 
T ABL0024 
T ABL0025 
TABL0032 
TABL0033 
TABL 0034 
TABL 0036 
TABL0037 
TABL0038 
TABL0039 
TABL 0040 
TABL0041 
T ABL0042 
TABL 0043 
T ABL0044 
TABL0045 
TABL 0046 


IF( TEST ( 13)) GO TO 2008 
HEAD1 ( 6 ) -FFI 22 ) 

HEAD1 ( 7 )*FFf 26 ) 

HEAD1 ( 13)*FF( 23) 

HEA01 ( 14 )*FF ( 26 ) 

HEAD2C6) *FF( 24 ) 

HEAD2! 12)*FF( 25 ) 

HEA02C 13 ) -FMT(ll) 

00 25 1*1 *NT 

IF(ABS(T( I )— 298. 15) .GT.O. 01 ) GO TO 25 
H298HR * HHRTCI) * Til) 

GO TO 24 


25 CONTINUE 

IF (H298HR.E0.0.) 


GO TO 2009 


24 HEADK 8) * 
HEADK 9) * 
HEADK 15)* 
HEADK 161* 
HEAD2I8) * 
HEAD2I 14)* 
HEAD2I 15)* 
GO TO 2010 


FF(ll) 
FFI 13) 
FFl 12) 
FFI 13) 
FFl 17) 
FFI 18) 
FFI 19) 


C 

C560 

C 


TABL0047 
TABL 0048 
TABL0057 

TABL0059 

T ABL0050 
TABL0051 
TABL 0052 
T ABL0053 
TABL 0054 
TABL0055 
TABL0056 

TABL0060 
T ABL0061 
TABL0062 


2008 HEADK 6) -FFI 11) 

HEADK 7) -FFI 13) 

HEADK 13) -FFI 12) 

HEADK 14)*FFl 13) 
HEAD2I6) *FF 1 17 I 
HEAD2I12) -FFI 18) 

HEAD2I 13) -FFI 19) 

2009 HH29 - FFI 10) 

FH29 - FFI 10) 

FMTI 5 ) * FF I 6) 

FMTI 8) - FMTI 5) 

2010 IF I TESTI 8 ) 1 GO TO 2020 
H * FFl 10) 

F * FFI 10) 

FMT 19) - FF C 9 ) 

DO 2015 KK-18,19 
HEADK KK* 1) - FFI 10) 

2015 HEAD2IKK-1) * FFI 10) 
HEAOll 18) * FFI 10) 


T ABL0063 
TABL0064 
TABL 0065 
TABL 0066 
TABL 0067 
TABL0068 
TABL0069 
T ABL0070 
T ABL0071 
TABL 0072 
T ABL0073 
T ABL0074 



c 

C570 

C 

2020 00 3000 NTABLE * 1,2 
IRTEST(8)) GO TO 55 
WRITE (6,511 

51 FORMAT (30HONO HZERO VALUE IS AVAILABLE 
GO TO 22 

55 IFf .NOT, TEST ( 1311 WRITE (6, 56) ASINOH 

56 FORMAT (8H0HZER0 * F 12.31 

IF( TEST! 1311 WR ITE( 6,571 ASINOH 

57 FORMAT ( 8H0H298 * F12.3) 

22 IF( NTABLE. EO. 1 1 WR I TE(6, HEA01 1 
IFf NTABLE. EQ. 2) WRITEC6, HEA02 > 

FMT(10I * FMTC9i 
LINES * LINES * 8 
00 399 I » 1. NT 
IT * Tf II 
FMTI2I * FFf 1 I 

IFf AMOOfTI 11,1.0). EO. 0.1 GO TO 2130 
TI » T( 1 1 
FMTC2I * FFf 2 ) 

2130 ART * R*Tf 1 1 
AR » R 

IF (NTABLE.E0.2 ) GO TO 2135 
AR * l. 

ART * 1. 

2135 CP « CPRf I )*AR 

HH * HHRTCU • ART 
S * (FHRTfl) ♦ HHRTfl)) * AR 
FH - FHRTfl) • ART 
IF ( .NOT.TESTf 8)1 GO TO 2120 
H * ( HHRTf I I+ASINOH/R/Tf I ) I* ART 
F * (FHRTf I)-ASINOH/R/Tf I)I*ART 
2120 IF IH298HR .EO. 0.) GO TO 250 

HH29 * f HHRTf I )— H298HR/TI 1 1 l*ART 
FH29 * (FHRT( I l+H298HR/T( I))*ART 
250 WRITE (6, FMT) TIrCP,HH,HM29.S,FH,FH29,H,F 
LINES * LINES ♦ 1 

IFf LINES .GE .551 CALL PAGE KOf LINES) 

399 CONTINUE 

CALL PAGE IOC L INES ) 

IF ( NTABLE .EO. 2) GO TO 4000 
DO 2100 I * 4,8 

2100 IFf FMTf I ) • EO.FFf 3 ) ) FMTfl) * FFI4) 

FMTf 6) * FFf 5 1 
IFf TEST! 6)) FMTf 91 « FFf 81 
3000 CONTINUE 
4000 RETURN 
END 


TABL0078 

TABL0079 

TABL0080 

T ABL0081 

TA8L0026 

T ABL0027 62 

TABL0028 

TABL0029 

TABL0030 65 

TABL0031 

67 

70 

72 

TABL0114 

TA8L0116 

TABL0082 

TABL0083 

TA8L0084 

T ABL0085 

TABL0086 

TABL0087 

TABL0088 

TABL0089 

TA8L0090 

TABL0091 

TA8L0092 

T ABL0093 

TA8L0094 

TABL0095 

T ABC 0096 

TABL0097 

TABL0098 

T ABL0099 

TABL0100 

TA6L0101 

T ABL0102 

TABL0103 109 

T ABL0104 

TA8L0105 112 

TABL0106 

TABL0107 116 

TABLOiOe 

TABL0109 

TABL0110 

TABL0U1 

T A8L0113 

T ABL01 17 

TA8L0118 

TABL0119 



SUBROUTINE LOGK LOGKOOOl 

COMMON NAME! 2 ) * SYMBOL I 70) , ATMWTI 70 ) »R ,HCK,ELECTR, I CARO* I UORD( 51* LOGK0002 

1 W0RD(4),TEST( 20) .HEIGHT, F0RMLAI5) ,MLA( 5 ) * BLANK, ELEMNTI 70 1 , LOGK0003 

2 NATOM,NT,CPR(202),HHRT(2O2) , ASI NDH, TI202) , ASINDT, FHRTC 202) , L0GK0004 

3 SCON ST, NO ATMS «MPLACE 1 70 ) ,LPLACE 1 70) * NHL A (70) , NDFILE, LOGK0005 

4 SPECH, TAPE 1 202 ,3) , PTMELT ,E XP 110), TRANGE 110), TCONST , NKIND, LOGK0006 

5 NF,L INE S» I TR, NTMP, AG C 70) ,GG (70 ),NIT,PI ,H298HR , I HEAT « JFt 5 ) L0GK0007 

C L0GK0008 

C580 LOGK0009 

C LOGKOOtO 

DIMENSION LMENT(4),PT<4), D C 2 , 2,2 02 ) ,DHO ( 2) ,NTX( 2 1 ,1 NIT ( 2 ) . FF( 10 ), LOGKOOll 
1 HARM 6) , TM 3) ,FMTl C 14) ,FMT2 1 14 ) , FMT3 116) L0GK0012 

EQUIVALENCE UT,TI) L0GK0013 

LOGICAL TEST LQGK0014 

INTEGER ELENNT, FORMLA, SYMBOL LOGK0015 

DATA BLK/1H /, ZERO/lHO/, ZER04/4H 0/, DS1/4H /,0S2/3H / L0GK0016 

OATAIFFC I), 1*1,7 I/42HI2H ,(2H*,F9.2, 16 ,3X , 6X, A6 ,7X , A6, F13 -4, /,L0GK0017 

1 IFKT1I J),J*3,6) /5HF8.4,, 3*6HF10.4,, 2*6HF12.4,/, L0GK0018 

2 ( FMT2C K ) »K*3, 7 ) /30HF8.4, FI 2. 1 ,F 12.4.F12. 1 ,F1 3* 1 ,/ , L0GK0019 

3 (FMT3I L • ,L*l, 16) /91H( 6X , 1H0, 6X,6H ,9X , 1H0,7X, A4, A3 , 9X, 1H0, L0GK0020 


F15.1,F13.1,6X,7H F13.1,6X,7H )/, 

5 (FMTl(M),M*12, I3)/7H ) /, IFMT2 (Nt , N*12,14)/13H 

6 FFI 9 ) /6H5X, A6 )/»FF(lO* 'Wll.ll/ 

IK - 0 

FMT3I 10) * FMT2t 7) 

FMT3U3) * FMT2( 7) 

DO 195 1*1, NT 

DO 195 LL* 1, 2 
OILL,l,I) * HHRTM) 

DILL, 2, I) * FHRTC I ) 

INITILL) * 1 
NTXCLL) * 0 
195 DHO(LL) * ASI NOH 
C 

C590 


DO 200 II - 

j * jfiiii 


l, NKIND 


LL*1 

LL*2 


FORMATION FROM THE ELEMENTS 
FORMATION FROM THE MONATOMIC GASES 


202 LL * 1 

IF (NPLACE(J) .EQ. 0) DH0C2) * BLK 

IF ILPLACEIJ) .EQ. 0) OHO(l) * BLK 

IF (NAMEtl) .EQ. ELEMNTI J ) ) DH0I1) * ZER04 

IF ( .NOT « TEST! 3 ) .AND. TEST I 4) .A NO. NQATMS. EQ. 1 ) DH0I2) 

IFC DHO( 1 ) •NE.ZER04.AND.DH0d ) • NE.BLK) GO TO 505 

FMT3I10) * FF( 6 ) 

204 LL * 2 

IF! OHO I 2 ) .NE.ZERO4.AND.DH0i 2) • NE.BLK) GO TO 505 
FMT3I13) * FF ( 6 ) 

GO TO 501 

505 IF (LL.EO.l) NN * LPLACEIJ) 

IF (LL.E0.2) NN * MPLACEIJ) 

IF(NN.EO.O) GO TO 501 
REWIND 3 

READ EF DATA FOR REACTANT FROM TAPE 


ZER04 


CALL SKFILE (3,NN) 

READ (3) NAM, HZERO, AMP, TNO 
M * TNO 

REAO 13) ( (TAPE IK, L), K«1»M), L*l,3) 
SUB - MLAI II I 
COEF * NMLAIJ) 

IFILL.E0.2) C0EF*1 

OHOILL)* DHOI LL )—HZERO* SUB /COEF 

FIND INDEXINMP) FOR M.P.IAMP) OF REACTANT 


IF I AMP.EQ.O. I GO TO 1241 
DO 1505 K*l, M 

IF I TAPE I K, 1 ) .LT • AHP ) GO TO 1505 
NMP * K + 1 
GO TO 1241 
1505 CONTINUE 
C 

C600 

C 

1241 DO 206 I *1, NT 
C 

C FIND T IN EFDATA 
C 

IF I I .EQ. 1) GO TO 241 

IFCTI I). GT. AMP. AND. AHP. GE . TII-11) GO TO 308 
241 IF (TAPE! 1, 1) .LE.TIU) GO TO 208 
INIT(LL) - INITILL ) ♦ l 
GO TO 206 


MP OF REACTANT, PUT * IN MARK FOR FOOTNOTE 


308 IF (IK.LT.4) IK 
MARK! IK) * I 


IK*1 


LOGK0021 
)/,L0GK0022 
L0GK0023 
L0GK0024 
L0GK0025 
L0GK0026 
L0GK0027 
L0GK0028 
L0GK0029 
L0GK0030 
LQGK0031 
L0GK0032 
L0GK0033 
LOGK 00 34 
L0GK0035 
L0GK0036 
LOGK0037 
L0GK0038 
L0GK0039 
LOGK0040 
LOGK 0041 
LOGK 0042 
L0GK0043 
LOGK0044 
L0GK0045 
L0GK0046 
LOGK0047 
L0GK0048 
L0GK0049 
LOGK0050 
L0GK0051 
LOGK0052 
LOGK 005 3 
LOGK0054 
L0GK0055 
L0GK0056 
L0GK0057 
LOGK0058 
L0GK0059 
LOGK0060 
L0GK0061 
L0GK0062 
LOGK0063 
L0GK0064 
L0GK0065 
LOGK0066 
LOGK0067 
L0GK0068 
L0GK0069 
LOGKOOTO 
L0GK0071 
LOGK0072 
L0GK0073 
LOGK0074 
L0GK0075 
LOGK0076 
LOGK0077 
LOGK0078 
LOGK0079 
LOGK0080 
LOGK 0081 
L0GK0082 
LOGK0083 
LOGK0084 
L0GK0085 
L0GK0086 
L0GK0087 
LOGK0088 
L0GK0089 
LOGK 0090 
LOGK0091 
LOGK0092 
L0GK0093 
L0GK0094 


54 

55 

56 

58 


56 


PTC IK) * AH P 
LMENT C I K I * EL EHNTC J I 
GO TO 241 
200 K1 - 1 

TF ( CAMP • EO.O. I .OR • INT( TNOI . LE .NHP ) GO TO 1208 
H * NMP 

IF CTC Il.LT.AHP) GO TO 1208 
Kl * NHP 
H * TNO 

1208 DO 209 K-Kl.M 

TKC 2) * TAPECK.2I 
TK <31 * TAPECK.31 

IF CABSCTAPECK.n-TCIII .LT. 0.011 GO TO 211 
IFCTAPEIK.il. LT.TCIII GO TO 209 
IF Cf M-K1I.EQ.0) GO TO 209 
C 

C610 

c 

C INTERPOLATION OF EF DATA 

C 

N*4 

IF CCM~KI).LT.3) N-M-Kl+1 
K2*K— 2 

IF CK.EQ.K1I K2-K 
IF CK .E0.CK1+1 I ) K2*K-1 

NK - K2+N-1 
DO 2000 L-2,3 

TKCLI * 0.0 
DO 2000 JJ-K2.NK 
TKC1I - 1.0 
DO 1000 JM-l.N 
IM*K2+JH— l 

IF (TAPE! JJ.1I.EQ. TAPE (IN, 111 GO TO 1000 
TKC1I * TKC 1IMTC II— TAPE C IN. II l/CTAPEC JJ.l I -TAPE! IM.ll) 
1000 CONTINUE 

2000 TKCLI * TKCLI+TK! 1)*TAPECJJ,LI 
GO TO 211 
209 CONTINUE 

213 IFC CNTXUL1.EQ.0I .OR. ttl-lt .LT.NTXILLt U NTXCLL»*I-1 
GO TO 500 
C 

C CALCULATE DELTA H AND DELTA F 
C 

211 DILLfl.il - DCLL. 1*1 1-TKC 2 I *SUB/COEF 
DCLL.2.II * DCLL. 2. II - TK C3) * SUB/COEF 
206 CONTINUE 

500 IF CLL.NE.2I GO TO 204 
200 CONTINUE 

C 

C620 

C 

C LIST HEADING OF FIRST TABLE 
C 

501 WRITE 16.3201 NAHE III* NANEC2I 
320 FORHAT C 1H 2A6I 

* F C .NOT. TEST! 811 GO TO 321 

IF C .NOT • TEST <1311 WRITE C6.322I ASINDH 

322 FORHAT C BHOHZERO - F12.3I 

IF C TEST C 131 1 WRITE! 6. 323} ASINOH 

323 FORHAT C 8H0H298 - F12.3 > 


L0GKQ095 

LOGK 0096 

LOGK0097 

LOGK0098 

L0GK0099 

LOGKOIOO 

L0GK0101 

LOGK0102 

L0GK0103 

L0GK0104 

LOGK0105 

LQGK0106 

LOGKO 107 

L0GK0108 

LOGKO 109 

LOGKOilO 

L0GK011 1 

L0GK0112 

LOGKOl 13 

LOGKOi 14 

L0GK0U5 

LOGKOl 16 

L0GK0117 

LOGKOl 18 

L0GK0119 

LOGK0120 

LOGK0121 

L0GK0122 

L0GK0123 

L0GK0124 

L0GK012S 

LOGK0126 

LOGKO 127 

L0GK0128 

LOGKOl 29 

L0GK0130 

L0GK0131 

LOGKO 132 

L0GK0133 

LOGK0134 

L0GK0135 

L0GK0136 

LOGKO 137 

L0GK0138 

L0GK0139 

L0GK0140 

L0GK0141 

LOGKO 142 

L0GK0143 

LOGKO 144 

L0GK0145 

LOGK0146 

L0GK0147 

LOG* 01 48 

LOGK0149 

LOGK0150 

L0GK0151 

L0GK0152 


321 WRITE C6.220I 

220 FORMAT! 1H , 77X. 42HREFERENC E ELEMENTS 
IFC .NOT. TEST! 131 1 WRITEC6.2051 
205 FORMAT f 123H T CP/R CH-HOI/RT 

1H/RT -F/RT DELTA H/RT -DELTA F/RT 

2RT 1 

IF C TEST! 1311 WR I TE f 6. 1205 1 
1205 FORMAT! 123H T CP/R CH-H2981/RT 

1H/RT -F/RT DELTA H/RT -DELTA F/RT 

2RT I 

LINES * 10 

101 DO 229 NTABLE - 1.2 
DO 600 1*1, NT 

IT * TCI1 
FMT1C21 - FFI4I 
FMT2C2I - FFC41 

IF C AMODCTC Il.l.OI.EO.O.l GO TO 103 
T1 * Til) 

FMT1C 21 * FFC3I 
FHT2C2) - FFC3I 
103 RT - R*TCII 

HOORT * ASINDH / RT 
SR * FHRTCII ♦ HHRTCI1 
HRT * HHRTCII 4 HOORT 
FRT - FHRTCII - HOORT 
IF C NT ABLE .E0.21 GO TO 18 
C 

C630 

C 

LD * 9 

DO 803 LL*1. 2 

82 * ZERO 

IF COHO ILL 1. EO. ZER04I GO TO 26 


L0GK0153 

GASEOUS ATOMS IL0GK0154 
L0GK0155 

S/R -CF-HOI/RT LOGKO 156 

DELTA H/RT -DELTA F/L0GK0157 
LOCK 01 58 

S/R -I F— H298 l/RT LOGK0156 

DELTA H/RT -DELTA F/LOGK 
LOGK 

LOGKO 159 
LOGK0160 
L0GK0161 
LOGKO 162 
L0GK0163 
L0GK0164 
LOGKO 165 
L0GK0166 
LOGKO 167 
LOGKO 160 
LOGK0169 
LOGK0170 
L0GK0171 
LOGK0172 
LOGKO 173 
L0GK0174 
L0CK0175 
LOGK 01 76 
L0GK0177 
LOGKO170 
L0GK0179 
LOGKO 180 
L0GK0181 


196 

200 
202 
204 
20 5 


57 



O O o 


BZ * BLK 

IF! DHO!LL> .EQ.BLK ) GO TO 26 

IF! < I . GT.NTX1LL ) . AND.NTXI LL ) .NE.O) .OR. I.LT. INI TILL) ) GO TO 26 
D!LL,1,I) * DILL* 1*1) ♦ DHO! LL I /RT 
D! LL* 2* I ) * 0 ( LL* 2*1) - DHOILLI/RT 
FMT1ILD) * FMTH71 
GO TO 803 
26 DILL, 1,1 1 * BZ 
Of LL* 2*1) * BZ 
FMTIILQ) * FFI 5 1 
803 LD * 11 

FMTlflO) * FMT1! 91 
FMT1I121 * FMT1! 111 
GO TO 217 


CALCULATE DIMENSIONAL PROPERTIES* DELTAH, AND LOGIC 


18 CP * CPRCI) • R L0GK0202 

HH * HHRTfl) * RT LOGK0203 

S - SR * R L0GK0204 

H * HRT * RT L0GK0205 

FH * FHRTII1 * RT L0GK0206 

F * FRT * RT LOGK0207 

DO 402 JX * 8*11 L0GK0208 

402 FMT2IJX! * FFI 61 L0GK0209 

LD * 8 LOGK0210 

DO 404 LL*1*2 L0GK0211 

IF{ DILL* l* I l.EQ.BLK) GO TO 404 LOGK0212 

IF! DILL* 1* 1 1. NE. ZERO) GO TO 403 L0GK0213 

DILL* 1*1) * ZER04 L0GK0214 

DILL* 2* I) * ZER04 LOGK0215 

GO TO 404 L0GK0216 

403 0(LL,2,I) * D«LL*2*I 1/2.3025851 L0GK0217 

0<LL«1*M * 0ILL*1*II*RT L0GK0218 

FMT2CLDI * FHT2I7) L0GKO219 

FHT2ILD+1) * FFI 7) LOGK0220 

404 LO * 10 LOGK0221 

217 FMTIIU * FFI l ) LOGK0222 

IF IIK.EO.O) GO TO 2999 L0GK0223 

DO 104 IX * 1 • IK LOGK0224 

IF IMARKI IXI.EO.I ) FMTKII * FFI2) L0GK0225 

104 CONTINUE L0GK0226 

2999 FMT2I1I = FMT1I1) L0GK0227 

IF INTABLE .E0.2) GO TO 235 L0GK0228 

WRITEI6,FMT11 TI*CPRII) *HHRT 1 1 ) *SR*FHRT (II* L0GK0229 

I HRT* FRT, ID ILL* 1*1 )*DtLL*2*I )*LL*l*2) LOGK0230 

GO TO 236 LOGK0231 

23 5 WRITE! 6* FMT2 IT I *CP*HH* S,FH,H*I ID(LL*KK*I )* KK*1 ,2) ,LL*1,2) LOGK0232 

236 LINES * LINES+i LOGK0233 

IF (AMODITI II, 500.0). NE. 0.0) GO TO 600 L0GK0234 

WRITE 16,237) L0GK0235 

237 FORMAT I 1H I L0GK0236 

LINES * LINES+1 LOGK0237 

600 IF! LINES .GE *55 1 CALL PAGE ID! L INES) L0GK0238 

C LOGK0239 

C650 LOGK0240 

C L0GK0241 

102 IF IIK.EQ.OI GO TO 601 LQGK0242 

C L0GK0243 

C WRITE FOOTNOTE LOGK0244 

C LOGK0245 

WRITE 16,2651 LOGK0246 

265 FORMAT! 114H0*A CHANGE IN PHASE OF AN ASSIGNED REFERENCE ELEMENL0GK0247 
IT HAS OCCURRED BETWEEN THIS TEMPERATURE AND THE PRECEDING ONE* IL0GK0248 
WRITE !6,2671 ! LMENTI I ) * PTIII, 1*1, IKI L0GK0249 

267 FORMAT I IH A6,3H~ F8.3, 4H ) LOGK0250 

LINES * LINES ♦ 4 L0GK0251 

601 CALL PAGEID ! LINES) LOGK0252 

IF (NTABLE .EQ.2) RETURN L0GK0253 

L0GK0254 

WRITE HEADING OF 2N0 TABLE AND PROPERTIES FOR 0 DEGREES L0GK0255 

L0GK0256 

LINES * 7 

WRITE 16,320) NAME! 1 ) * NAME { 2 ) L0GK0257 

WRITE ! 6* 220 ) L0GK0258 

IF! .NOT. TEST 1 13)1 GO TO 1221 
WR I TEI6* 3221 ) 

3221 FORMAT! 120H T CP H-H298 S -I F-H298LOGK0260 

II H DELTA H LOG K DELTA H LOG K IL0GK0261 

GO TO 229 

1221 WRITE 16,221) L0GK0259 

221 FORMAT! 120H T CP H-HO S -I F-HOI LOGK0260 

l H DELTA H LOG K DELTA H LOG K IL0GK0261 

51 * 0S1 L0GK0262 

52 * DS2 L0GK0263 

IF {TEST! 4 ) I GO TO 1230 L0GK0264 

51 * ZER04 LOGK0265 

52 * BLK L0GK0266 

1230 WRITE ! 6*FMT3) SI , S2, ASINDH, OHO! II* DH0I2) LOGK0268 

229 CONTINUE 

RETURN L0GK0269 

END LOGK0270 


H-HO 
LOG K 


S 

DELTA H 


L0GK0257 

L0GK0258 


— I F— H298LOGK0260 
LOG K IL0GK0261 

L0GK0259 
—I F— HO) LOGK0260 
LOG K IL0GK0261 
L0GK0262 
L0GK0263 
L0GK0264 
L0GK0265 
L0GK0266 
LOGK0268 

L0GK0269 

LOGK0270 


312 

322 

335 

338 

343 

344 
351 

355 

356 

359 

361 

365 


58 



SUBROUTINE LEAST 

COMMON NAME ( 2) * SYMBOL <701 * ATMWT( 70) ,R ,HCK,ELECTR, ICARD, l WORD! 5) • 

1 W0R0(4)*TEST( 201, HEIGHT, F0RMLAC5! ,MLA( 5) , BLANK ,ELEMNT( 70) , 

2 N ATOM* NT *CPR ( 202 ) * HHRT ( 202 I , ASI NDH* T( 202) , AS I NDT , FHRT! 202 ) 

3 SCONST,NOATMS*MPLACE (70) *LPLACE(70) *NMLA( 70 )« NOFILE* 

4 SPECH*TAPE ( 202*3) * PTMELT, E XP(IO) * TRANGE ( 10 ) .TCONST* NKINO, 

5 NF*L INES* NTRANG* NTHP, AG (70) *GG(70)*NIT 

COMMON /PCH/ LEVEL* NF 1,NF2, ANS(9* 15 ) *TC( 10) ,NTC * NFP, LDATE* NNN* NLAST 
DIMENSION A ( 15* 16) * ANSTP Y( 15 ) , F (4 ) ,FC ( 4 ) *E RR( 4) * 

1T0TERR ( 4 ) *TOTREL( 4) * TOTSOt 4) * T0TS0R(4) *AVERR(4)* 

2AVREL (4) * AVSOC 4 )* AVS0R(4) *MAXERR (4) * MAXREL (4) *TMAX (4 ) * T MAXRLt 4 1 * 
3RELERRC4) 

C 

C660 

C 

LOGICAL TEST 
REAL MAX ERR* MAXREL 
WRITE (6*2) 

2 FORMAT (1H ft 14H LEAST SQUARES *//) 

LINES * 7 

DO 3 I * 1,3 
DO 3 J * 1*15 

3 ANS ( I , J ) * 0.0 

IF (NF .NE. 0 ) GO TO 6 
NF * 5 

DO 4 I * 1,5 

4 EXP(I) * I - 1 

6 NF 1 * NF>1 
NF2 - NF+2 
NF3 * NF+3 
NF4 * NF>4 
NF5 « NF+5 
NF6 * NF+6 
I DONE A - 0 
IDONEB « 0 
IDONET * 0 
IOONES * 0 
I CONST - O 

IF (TCONST .NE. 0.0) GO TO 7 
TCONST * 1000. 

IF ( PTMELT .NE. 0.0) TCONST « PTMELT 

7 IF( NTRANG.EO.O) GO TO 1006 
C 

C670 

C SORT IN INCREASING OROER TEMPERATURES SPECIFYING INTERVALS 
C 

8 J * l 

9 M « J 

10 DO 12 I *J« NTRANG 

IF (TRANGE (M)— TRANGE( I )) 12,12*11 

11 M - I 

12 CONTINUE 

IF (M-J) 13,14*13 

13 TEMPY - TRANGE(M) 

T RANGE! M ) » TRANGE(J) 

TRANGE! J ) » TEMPY 
GO TO 10 

14 J - J + l 

IF ( NTRANG-J i 1007*1007,9 

1006 TRANGE! 1) - 300.0 
TRANGE! 2) * 1000. 

TRANGE! 3 ) - 5000.0 
NTRANG * 3 

1007 DO 24 I * l, NTRANG 
24 TC( I ) « TRANGE ( I ) 

NTC * NTRANG 
SAVEC « TCONST 

IF! TCONST .GT.T! NLAST) ) TCONST *T(NLAST) 

IF (NNN.EQ.l) GO TO 1023 

IF (T(NNN-1 ).EQ.T(NNN).OR. TCONST.LT. T(NNN) ) TCONST*T ( NNN) 

C 

C680 

C 

1023 K * NTRANG - 1 

IF ( (TRANGE! 1).GE.T( NNN)-. 00001 ) .ANO. ( TRANGE ( NTC) . LE.T ( NLAST )+ 

1 .00001)) GO TO 1021 

LINES * LINES + 2 
00 1028 I - 1 * K 

IF ( TRANGE! I ) .GE. T( NNN)*-. 00001 )G0 TO 1035 
IF (T( NNN) .LT. TRANGE! I + 1) -.00001) GO TO 1032 
IDONES * I DOMES + 1 
1028 CONTINUE 
1032 TRANGE! I ) * T(NNN) 

1035 DO 1038 I * 1 *K 
IK - K ♦ 2 - I 

IF (TRANGE! IK )• LE . T( NLAST ) ♦. 00001) GO TO 1021 
IF (T( NLAST ) .GT. TRANGE ( IK-1 ) >.00001) GO TO 1042 
NTRANG « NTRANG - 1 
1038 CONTINUE 
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L EAS0009 
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LEAS0015 
LEAS0016 
LEAS0017 
LEAS0018 
LEAS0019 
LEAS0020 
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LEAS0023 
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LEAS0025 
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LEAS0027 
LEAS 0028 
LEAS0029 
LEAS0030 
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LEAS0033 
LEAS0034 
LEAS0035 
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LEAS0037 
LEAS0038 
LEAS0044 
LEAS0045 
LEAS0046 

LEAS0047 
LEAS0048 
LEAS0049 
LEAS0050 
LEAS0051 
LEAS0052 
LEAS 0053 
LEAS0054 
LEAS0055 
LEAS0056 
LEAS0057 
LEAS0058 
LEAS0059 
LEAS0060 
LEAS0061 
LEAS0062 
LEAS0063 
LEAS 0040 
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LEAS0067 
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LEAS0089 
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LEAS0110 
LEAS01 1 1 
LEAS0112 
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LEAS0117 

LEAS01L8 


LEAS0121 

LEAS0122 



LEAS0123 
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GO TO 1021 

1042 TRANGEf IK9 * Tf NL AST ) 

C 

C LOCATE TEMPERATURE CONSTRAINTS 
1021 DO IT 1*1* NTRANG 

IF ( ABSf TRANGEf I I— TCONSTI .LT. 0. 00001 ) GO TO 1017 
IF (TRANGEf 19 .GT.TCONST) GO TO 18 

17 CONTINUE 
GO TO 1018 

18 I * I - 1 

1018 TRANGEf I I * TCONST 
1017 ICONST * I 
C 

C AO JUST TEMPERATURE INTERVALS, IF NECESSARY 


00 21 I*NNN,NL AST 

21 IF (ABSfT(I9-TC0NST).LT. 0*000011 GO TO 23 
23 CPRCON * CPR(I) 

HHRTCN * HHRT(I) 

SRCON * FHRTI 1 1 ♦ HHRTCIJ 


C 

C690 

C 


C IF ALL INTERVALS ARE COMPLETE# RETURN TO MAIN* OTHERWISE LOCATE 
C CONSTRAINT TEMPERATURE AND CURRENT INTERVAL ENO POINTS. 

C 

25 ILOW * ICONST- IDONEB-1 

IF( ( I LOW- I DONE S 9.EQ.0) GO TO 27 
TFIX * TRANGE (ILOW+19 
GO TO 28 

27 ILOW * I CON ST+ 1 DONE A 

IF ( ILOW.EQ. NTRANG) GO TO 900 
TFIX * TRANGEf ILOW) 

28 IF f ABSITFIX-TC0NST9.GT.0.000G1) GO TO 40 
CPRFIX * CPRCON 

HHRTFX * HHRTCN 
SRFIX * SRCON 

40 DO 41 I *NNN*NLAST 

IF (ABSfTf I l-TRANGEf ILOWH.LT. 0.000019 GO TO 44 

41 CONTINUE 
WRITE (6,421 

42 FORMAT f 95H LEAST SQUARES NOT COMPLETED. INTERVAL TEMPERATURES 

1 FOUND IN TEMPERATURE SCHEDULE* C690 ) 

GO TO 1000 
44 NBEGIN * I 

DO 46 I*NBEGIN,NLAST 

IF (ABSIT( 1)-TRANGE( I LOW* 199.LT. 0.00001 9 GO TO 48 
46 CONTINUE 

WRITE (6,42) 

48 NEND * I 
C 

C700 

C 

C CLEAR MATRIX REGION 
C 

50 DO 51 I*1,NF5 

DO 51 J*l, NF6 

51 Af I , J 9 * 0.0 
C 

C SET UP MATRIX ELEMENTS FOR 01 AGONAL ANO ABOVE FOR FIRST NF ROWS 
C 

K - l 

DO 500 1*1. NF 

80 IF (EXPfl ).NE.(— 1.099 GO TO 85 
Af I.NF3 9 * 1.0/TFI X 
AU.NF49 * ALDG( TFIX 9/TF I X 
Af I* NFS 9 * —1.0/TFI X 
DO 83 L*NBEGIN*NEND 

A(I.NFi) * A( I,NF19+AL0G(T(L9 9/(T(L9*T(L9 9 
A(I * NF29 * A( I ,NF29-1*0/T(L9 
SR * FHRTfLI + HHRT f L 9 

83 A( I «NF6 9 * AM.NF6) * (CPR (L) + HHRT( L9 *ALOG(T( L9 9-SR )/T(LI 
GO TO 99 
C 

85 IF (EXP( 19.NE.0.09 GO TO 90 
A( I.NF3 I * 1.0 
A( I ,NF4 9 * 1.0 
Af I.NF5I « ALOGf TFI XI 
OD 89 L*NBEGIN«NEND 
A(I.NF19 * A( I * NF1 9 ♦ l.0/T(L9 
Af I.NF2 9 * Af I * NF 2) ♦ ALOGfTf L) 9 
SR * FHRTI L 9 ♦ HHRTIL9 
69 AII.NF69 * Af I * NF69 ♦ CPR I Lf+HHRTI L9 + SR 
GO TO 99 


♦ALOGfTf L» 9 


90 Af I.NF3 9 
Ad *NF49 ■ 
Af I.NF5 9 * 


« TF I X**EXPt I 9 
Af I, NF 39 /(EXPf I 9+1. 09 
Af I, NF 3) /EXP (1 9 
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LEAS0100 


LEAS0127 
LEAS0128 
LEAS0133 
LEAS0134 
LEAS0135 
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LEAS0138 
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LEAS0183 
LEAS0184 
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203 

217 


239 

245 

257 

271 

279 

286 

295 



ouu uuoou uoo 


00 92 L*NBEG IN »NEND 

Al I ,NFt ) * All* NF l )+T (LI ** (EXPIII— 1.01/1 EXPI I ) +1 • 0 ) 

All *NF2 1 * A(I,NF2)+(TCL)*«EXP(I))/EXP(I) 

SR * EHRTIL) ♦ HHRTCL ) 

92 Alf,NF6) - AC I,NF6I+(CPR(L l+HHRT ILI/IEXPII l+l.OI+SR /EXPIII) 

1*1 TIL) ♦♦EXPI I I ) 

C 

C710 

C 

99 DO 400 J*K *NF 
100 IF I EXP 1 1 1+ 1.0 ) 130*105*130 
105 IF I EXP I J ) +1 .0 I 115,110*115 
110 00 112 L*NBEGl N*NEND 

112 AU f J| * A I I « J I +( 2 .O+ALOG (TIL) l+ALOGI TIL)) l/ITCL) *T (LI) 

GO TO 400 
C 

115 IF (EXP(J)t 125,120,125 
120 DO 122 L*NBEGI N,NEND 
122 A( 1 « J ) * A I I , J I + 1.0/TIL) 

GO TO 400 
C 

125 EXP I J * EXPIJ) 

126 DO 127 L*NBEGIN,NEND 

127 A( I , J ) * A( I • J ) ♦ I (EXPIJ-l.O) /EXPIJ+ALOGITILM/IEXPIJ + I.O))/ 
1T(L)*MEXPIJ-1.0) 

GO TO 400 
C 

130 IF (EXPU) ♦ 1.0) 145,135,145 
135 IF (EXPIDI 140,120,140 
140 EXP I J * EXPIII 
GO TO 126 
C 

145 IF (EXPIJ)I 165,150,165 
150 IF I EXPI I ) ) 160,155,160 
155 DO 157 L*NBEGIN,NEND 
157 A( I , J ) * A 1 1 * J ) + 2. 0+ A LOG (TIL) ) **2 
GO TO 400 
C 

160 EXP I J * EXPI I) 

161 DO 163 L*NBEGIN, NEND 

163 A I I , J I * A I I , J I ♦ I (EXPIJ + 2.0) /(EXPI J+l . 0 I +ALOGI T I L) I /EXP I J ) 

1 *T( L I **EXP IJ 

GO TO 400 
C 

165 IF (EXPIII) 175,170,175 
170 EXPIJ * EXPIJI 
GO TO 161 

175 DO 177 L * NBEGIN,NENO 

177 A( I , J ) * A(I,J)+(I.O+1.0/((EXP(I)+1.0)*(EXP(J)+l.0l) 

1+ 1.0/1 EXPI I )*EXP I J I ) )*T( L )** (EXP (I I+EXPIJ) 1 
C 

400 CONTINUE 
500 K * K+l 


SET UP MATRIX FOR DIAGONAL AND ABOVE FOR REMAINING ROWS 


510 


DO 510 L*NBEGIN,NEN0 
A ( NF1, NF 1 1 * AINFl.NFlt ♦ 
A( NF1, NF6) * A I NF 1, NF6I + 
A( NF2, NF2) * A( NF 2, NF2) ♦ 
A( NF2* NF6 ) - A(NF2,NF6) ♦ 
Al NFl, NF4) * 1.0/TFIX 
A( NF2, NF5 I * 1.0 
Al NF3, NF6 I * CPRFIX 
Al NF4, NF6 I * HHRTFX 
Al NFS, NF6 I - SRFIX 


1.0/IT(L1*T(L1 I 
HHRTIL) /TILI 
1.0 

FHRTIL) ♦ HHRTIL) 


COMPLETE THE MATRIX BY REFLECTING SYMMETRICAL ELEMENTS ABOVE DIAGONAL 
K * 2 

00 520 1*1, NF4 

DO 518 J*K,NF5 
518 Al J* I ) * Al I, J ) 

520 K * K+l 

SOLVE THE MATRIX. 

N*NF5 

DO 551 I*l,N 
551 ANSTPYI I I * 0.0 
DO 560 1*1, N 
DO 557 J*I,N 

All, J + l) * All* J + l) /A 1 1,1) 

IF (I-NI 557,570,557 
557 CONTINUE 
K-I + l 
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LEAS0266 
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LEAS0276 
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312 


325 


344 


372 


399 


411 


435 


346 


374 


413 


61 



U <J 


DO 558 1 1 *K, N 
DO 558 JJ*I»N 

558 A(II,JJ+L) * -A( 1 1 , I )*AII , J J+l I ♦ Al 1 1 , J J+l I 
560 CONTINUE 

570 ANSTPYI N ) * All, J+l) 

IF IN-1) 571,580,571 

571 J - N-l 
II * J 

DO 573 1*1,11 
K - J + l 
DO 572 MM*1, I 

ANSTPYI J I - ANSTPYCJI + ANSTPY (K)*A(J,KI 

572 K * K+l 

ANSTPYI J ) * A(J,K1 - ANSTPVIJ) 

573 J*J-1 


580 DO 581 1*1, NF5 

581 ANSIILOW,!) * ANSTPYUI 
C 

C730 
C 


LEAS0292 

LEAS0293 

LEAS0294 

LEAS0295 

LEAS0296 

LEAS0297 

LEAS0298 

LEAS0299 

LEAS0300 

LEAS0301 

LEAS0302 

LEAS0303 

LEAS0304 

LEAS0305 

LEAS0306 

LEAS0307 

LEAS0308 

LEAS0309 

LEAS0310 

LEAS0311 

LEAS0312 

LEAS0313 


C CALCULATE FROM THE LEAST SQUARES COEFFICIENTS VALUES OF CP/R, H-HO/RT, LEAS0314 


S/R, F-HO/RT, AND THE ERRORS ANO RELATIVE ERRORS IN THESE AT EACH 
TEMPERATURE. ALSO THE AVERAGE ERROR, AVERAGE RELATIVE ERROR, 
LARGEST ERROR AND LARGEST RELATIVE ERROR. 


LEAS0315 
LEAS0316 
LEAS0317 
LEAS0318 

WRITE (6,602) LEAS0319 

602 FORMAT ( 1H0, 7X, 1HT, 6X, 10HCP/R INPUT, 4X ,9HCP/R CALC, 5X ,11HHH/RT INLEAS0320 

1PUT , 3X, 10HHH/RT C ALC * 6X , 9HS/R INPUT, 5X, 8HS/R CALC ,6X , 1 2H-FH/RT I NPLEAS0321 
2UT , 4X,11H-FH/RT CALC ) LEAS0322 

WRITE (6,603) LEAS0323 

603 FORMAT ( 1H , 14X, 10HINPUT-CALC, 5X, 8HFRACTIQN,6 X, 10NINPUT-CALC.4X, 8HLEAS0324 
1FRACTI0N* 7X, 10H INPUT— CALC, 5X, 8HFRACTI ON, 7X ,10HINPUT-CALC,4X,8HFRACLEAS0325 


2TI0N) 

C 

LINES * LINES + 3 
00 605 1*1,4 

TOTERR(I) * 0. 

TOTREL ( I ) * 0. 

TOTSQRII) * 0. 

TOTSO (11*0. 

MAXERR ( I ) * 0. 

MAXREL 1 1 ) * 0. 

TMAXf I ) * 0. 

605 TMAXRL (II * 0. 

C 

C740 

C 

DO 635 L*NBEGIN»NEND 
F(l) * CPR(L) 

FI 2 ) * HHRTILI 

FI 3 ) * FHRTIL ) ♦ HHRTIL ) 

F( 4) * FHRTIL) 

FC( 1 I * 0. 

FC( 2) * ANSTPYINF1 )/T(L ) 

FCl 3) *ANSTPY(NF2) 

C 

DO 618 1*1, NF 

TP * T(L)**EXP(I> 

IF IEXP( I I.NE.I-l.O) ) GO TO 610 
FCI2) * FCl 21+ANSTPYI I ) *ALOG( T(L))/T(L) 

GO TO 616 

610 FCl 2) * FCl 2) + ANSTPYI I l*TP/ (EXP(I 1+1.0) 

IF (EXP( II.NE.O.O) GO TO 616 
FCl 3) = FC(3I+ANSTPY(II*AL0G(T(LII 
GO TO 618 

616 FCl 3) * FCl 31+ANSTPYI II*TP/EXP(1| 

618 FCl 1 ) * FCl 1 ) ♦ ANSTPYI I ) *TP 
FCl 4) * FCl 31-FCI 2 ) 

C 

IF (L.NE.NBEGIN.OR.TRANGEIILOW).GE. TCONST) GO TO 705 
IDONEB * IOONEB + 1 
GO TO 706 

705 IF IL.NE.NENO.OR.TRANGEI ILOWI.LT. TCONST) GO TO 707 
IDONEA * IDONEA ♦ 1 

706 CPRFIX * FCl II 
HHRTFX * FCl 2) 

SRFIX * FCl 3) 

707 DO 622 1*1,4 

ERR I I ) * FIII-FCII I 

ABSERR * ABSIERRIIM 

TOTERRI I ) - TOTERRI I l+ABSERR 

TOTSQ (I) * TOTSQ I I )+ABSERR*ABSERR 

IFIFI M.NE.O.I GO TO 619 

WRITEI6, 1619) 

1619 FORMAT I 52HQ ERROR IN OATA. LEAST SQUARES NOT COMPLETED, C740 
GO TO 1000 
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553 
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62 



WRITE (6,6251 T(L),CPR(L).FC(l) .HHRTILI «FC(2)«F(3) , FC(3),F(41, 
IFC(4) 

625 FORMAT ( F12.2, 2F13.7,2X, 2F13.7*2X,2F14.7,2X,2F14.71 
WRITE (6,627)(ERR(1 ), RELERRI I) ,1*1,4) 

627 FORMAT ( 12X , 2F13 .7, 2X, 2F13. 7,2X,2F14. 7 ,2X,2Fl4-7 ) 

LINES * LINES ♦ 2 

IF (LINES .GE.55) CALL PAGEIO (LINES) 

635 CONTINUE 
C 

C750 

C 

POINTS * NEND-NBEGIN ♦ 1 
00 640 1*1,4 

AVERR(I) * TOTERR( 1 1/POINTS 
AVREMI) * TOTRELI I > /POINTS 
AVSO(I) * $QRT(TOTS0( I I/POINTS) 

640 AVSOR(I) * SORT(TOTSOR II I/POINTS) 


619 RELERR(I) • ERR(I)/F(I) LEAS0368 

A8SREL * ABS( RELERRI 111 LEAS0369 

TOTREL(I) * TOTRELI I l+ABSREL LEAS0370 

TOTSOR(I) * TOTSQR(I) + AB SREL *AB SREL LEAS0371 

IF ( ABSERR.LT .MAXERR (I ) ) GO TO 620 LEAS0372 

MAX ERR ( I ) * ABSERR LEAS0373 

TMAX(I) * TIL I LEAS0374 

620 IF ( ABSREL .LT. MAXRELI 1 1 ) GO TO 622 LEAS0375 

MAXREL ( I ) * ABSREL LEAS0376 

TMAXRL (II * TIL) LEAS0377 

622 CONTINUE LEAS0378 

C LEAS0379 

WRITE (6,6251 T(L)«CPR(L)«FC(l) ,HHRT(L) , FC(2),F(3) , FC(3),F(4), LEAS0380 
1FCC4) LEAS0381 

625 FORMAT ( F12.2, 2F13.7,2X,2F13.7*2X,2F14.7,2X,2F14.71 LEAS0382 

WRITE ( 6, 627 ) ( ERR( 1 ) , RELERRI I) ,1*1,4) LEAS0383 

627 FORMAT ( 12X , 2F13 .7, 2X, 2F13. 7,2X,2F14. 7 ,2X,2F14.7 ) LEAS0384 

LINES * LINES ♦ 2 LEAS0385 

IF (LINES .GE.55) CALL PAGEIO (LINES) LEAS0386 

635 CONTINUE LEAS0387 

C LEAS0388 

C750 LEAS0389 

C LEAS0390 

POINTS * NEND-NBEGIN ♦ 1 LEAS0391 

00 640 1*1,4 LEAS 0392 

AVERR(K) * TOTERRI 1 1/POINTS L6AS0393 

AVREL(I) * TOTRELI I ) /POINTS LEAS0394 

AVSO(I) * $QRT( T0TSQ( 1 1 /POINTS ) LEAS0395 

640 AVSOR(X) * SORT! TOTSOR ( I ) /POINTS) LEAS0396 

C LEAS 0397 

C LEAS0398 

WRITE (6,641) MAXREL ( 1 ) , TMAXRL ( 1 ) , AVREL (1) «AVSQR ( 1 ) LEAS0399 

641 FORMAT ( 3X , 19HMAX-REL ERR CP/R *.F1 0.6 ,4X,6HTEMP *.FT-0,6X,20HAVELEAS0400 

1R REL ERR CP/R *,F10.6,6X, 22HREL LST SO ERR CP/R *,F10.6) LEAS0401 

WRITE (6,642) MAXREL (2) , TMAXRL (21 * AVREL (2) ,AVSQR( 21 LEAS0402 

642 FORMAT (3X,19HMAX REL ERR HH/RT *,F1 0. 6,4X,6HTEMP * . F7.0 , 6X, 20HAVELEAS0403 

1R REL ERR HH/RT * ,F 10. 6.6X , 22HREL LST SQ ERR HH/RT *,F10.6) LEAS0404 

LINES * LINES «■ 2 LEAS0405 

IF (LINES .GE.55) CALL PAGEIO (LtNES) LEAS0406 

WRITE (6,643) MAXRELI 3) , TMAXRL (31 .AVREL (3) « A VSQR ( 3) LEAS0407 

643 FORMAT (3X,19HMAX REL ERR S/R *,F10. 6.4X.6HTEMP * , F7 .0, 6X, 20HAVELEAS0408 

1R REL ERR S/R *,F10.6,6X, 22HREI LST SQ ERR S/R *,F10.6) LEAS0409 

WRITE (6,644) MAXREL ( 4 ) , TMA XRL (4) , AVREL (4) , AVSQRI 4 ) LEAS0410 

644 FORMAT (3X,19HMAX REL ERR FH/RT -,F10.6,4X,6HTEMP - ,F7.0,6X,20HAVELEAS041 l 

1R REL ERR FH/RT *,F10.6,6X,22HREL LST SO ERR FH/RT *,F10.6 ) LEAS0412 

LINES * LINES ♦ 2 LEAS0413 

IF (LINES .GE.55) CALL PAGEIO (LINES) LEAS0414 

WRITE (6,645) MAXERR ( 1 )• TMAX( 1 ), AVERR ( 1 I ,AVSQ( 1 ) LEAS0415 

645 FORMAT (7X,15HMAX ERR CP/R F10. 6.4X.6HTEMP. *, F7.0 , 10X. 16HAVER ELEAS0416 

1RR CP/R *, F10.6, 10X, 18HLST SQ ERR CP/R *,F10.6) LEAS0417 

WRITE (6,646) MAXERR ( 2) , TMAXf 2 ) .AVERR (2 ) ,AVSQ(2t LEAS0418 

646 FORMAT ( 7X, 15HMAX ERR HH/RT *, F10* 6 ,4X, 6HTEMP - , F7. 0.10X , 16HAVER ELEAS0419 

IRR HH/RT *,F10.6, 10X.18HLST SO ERR HH/RT *,F10.6) LEAS0420 

LINES » LINES «■ 2 LEAS0421 

IF (LINES .GE.55) CALL PAGEIO (LINES) LEAS0422 

WRITE (6,647) MAXERR! 3) , TMAX( 3 ) • AVERR ( 3 ) ,AVSO( 3) LEAS0423 

647 FORMAT ( 7X, 15HMAX ERR S/R * , F10. 6,4X .6HTEMP *,F7 .0 , 10X , 16HAVER ELEAS0424 

IRR S/R *,F10.6, 10X, 18HLST SO ERR S/R *,F10.6) LEAS0425 

WRITE (6,648) MAXERR! 4) ,TNAX(4) • AVERRI4) ,AVSQ(4) LEAS0426 

648 FORMAT (7X.15HMAX ERR FH/RT * ,F10. 6.4X.6HTEMP *, F7.0 , 10X , 16HAVER ELEAS0427 

IRR FH/RT *, F10 • 6, 10 X, 18HL ST SO ERR FH/RT *,F10.6 I LEAS0428 

LINES * LINES ♦ 2 LEAS0429 

IF (LINES .GE.55) CALL PAGEIO (LINES) LEAS0430 

WRITE (6,650) ( ANSTPY (Il.EXPII ),I*1,NF) LEAS0431 

650 FORMAT ( 8H CP/R * ,5(1PE16. 7,3HT*4,0PF4.1)/8X,5I 1PE16.7, 3HT**,OPFLEAS0432 
14.1)) LEAS0433 

LINES - LINES ♦ 2 LEAS0434 

IF (LINES .GE.55) CALL PAGEIO (LINES) LEAS0435 

HRTC * ANSTPY(NFl) ♦ ASINOH/R LEAS0436 

WRITE (6,660) ANSTPY(NFl) • HRTC, ANSTPYINF2) LEAS0437 

660 FORMAT ( 21H IH-HOl/R CONSTANT * ,E15.8, 20H, H/R(A6) CONSTANT * LEAS0438 
1 E 15.8, 16H. S/R CONSTANT * E15.8 ) LEAS0439 

LINES * LINES ♦ 2 LEAS0440 

IF (LINES .GE.55I CALL PAGEIO (LINES) LEAS0441 

GO TO 25 LEAS0455 

C LEAS 0442 

C760 LEAS0443 

C LEAS0444 

900 SAVEL * LEVEL LEAS 0456 

LEVEL * NTC-1 

NFP * NF LEAS0457 

CALL PUNCH LEAS0458 

LEVEL * SAVEL 
1000 00 980 I * l.NTC 

980 TRANGE(I) * TCI I) LEAS0463 

NTRANG * NTC LEAS0464 

T CONST * SAVEC LEAS0465 

RETURN 

ENO LEAS0471 
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SUBROUTINE PUNCH 


C 

C770 

C 


PNCHOOO I 
PNCH0002 
PNCH0003 
PNCH0004 
PNCH0005 


PUNCH COEFFICIENT CARDS FOR PERFORMANCE PROGRAM 

COMMON NAME! 21 * SYMBOL 170) ,A TMWTI70) .R ,HCK,EL ECTR, ICARD , I WORD! 5 I , 

1 WORD! A) .TEST! 20 )* WEIGHT .FORMLAI 5 1 , ML Al 5 I • NPLUS , ELEMNT (701, 

2 NATOM* NT.CPR ( 2021 * HHRT ( 202 ) , ASI NDH* T( 2021 , AS I NOT , FHRTI 202) , PNCH0006 

3 SCONST * NOATMS , MPLACE (70),LPLACEI70) « NMLAl 70 ) » NDF ILE, PNCH0007 

4 SPECH* TAPE ( 202,3 ) ,PTMELT, EXP( 10 ) , TRANGE( 10 ) ,TCONST , NK I NO, PNCH0008 

5 NF, LINES, ITR,NTMP,AG(70),GG(70I, NIT, PI PNCH0009 

PNCH0010 
PNCHOOll 
PNCH00I2 

COMMON /PCH/ K , NF 1, NF2, ANSI 9 , 15 ) , TC 1 10 ) , NTC ,NF P, DATE , NNN, NLAST PNCH0013 


DIMENSION OAT (23I,MA(6) 

LOGICAL TEST 

EQUIVALENCE I OATIll , NDATA II , I DAT ( 21 , NDATA2 I 

DATA MAI 11/0007777777777/, L I QUID /6HL 00000/, MAC 2 I /0770077777777/ , 
1MAI 31/0777700777777/, MA(4)/0777777007777/, MAI 51/0777777770077/, 
2MAI 61/0777777777700/, BLANK/1H / 


ANSI I A, NF1 ) ♦ ASINDH/R 


DO 44 IA - 1,K 

44 IFIANSI IA,1).NE.0.0)AN$(IA,NFI) 

N0ATA1 * NAME! 1 ) 

NDATA2 * NAME! 2) 

DAT ( 3 ) * PI 
0ATI4) - TCI II 

IF I .N0T.TESTI6) .OR, PTMELT. EQ. 0. ) GO TO 40 
IF ITINLASTI.LE. PTMELT) GO TO 40 

C PUNCHING CARDS FOR LtQUID INSERT L IN NAME 

KN - 1 

NPLU * NPLUS 

IF (NPLUS .GT, 6) GO TO 30 
20 LN - 6*1 NPLU -1) 

IL •* IARSILN.LI OUI 0 ) 

DATIKN) * AND! MAI NPLU ) ,NAME( KN) ) 

OATIKN) * ORI DAT! KN I , IL) 

GO TO 40 
30 KN * 2 

NPLU * NPLUS - 6 
GO TO 20 
C 

C780 

C 

40 00 930 1-6,23 

930 DAT! II - 0. 

IF (T(NLAST).LE.TCI ll.QR.TINNNI.GT.TCm I DAT I4I=T I NNN) 
DAT! 5) * TCI NTC I 

IF I TCI NTC ) .GT.TI NLAST) I DATI5) - TINLASTI 
936 II - 7 
12 - 16 
WRITE 16.954) 

954 FORMAT ( 24 HOP UN CHE D BINARY CARDS — I 
LINES - LINES ♦ 3 

940 DO 952 I * 11,12,9 
DAT I I— 1 ) * TCI K ) 

DAT I II - TCIK+ll 

00 950 J - l.NFP 
IIJ * I + J 

950 DAT! IIJ) - ANSIK ,J) 

DAT! 1 + 6 1 * ANS (K,NF1I 
DAT! 1+71 - ANS (K,NF2I 
K - K— 1 

IF (K.LE.O .AND. I.EO.UI GO TO 970 

952 CONTINUE 

1 - 12 

970 18 « 1+8 

951 IF! 18. GT. 221 GO TO 961 

00 953 1*18,22 

953 DAT! 1 1 *0. 

DAT! 221 - DATE 

C 

C790 

C 

961 IF IDAT(3).EQ.O.) DAT I 3) -BLANK 
CALL BCDUMP (OATH), DAT! 22) I 
IF (DATI3) .EQ. BLANK) DATI3)*0. 

IF I I8.GT.22) GO TO 1970 
WRITE (6,956) (OATIII), 11-1,22) 

956 FORMAT I 1H0 ,2A6, F17.3 ,4X, 5E 17. 8/7E 17. 8/6E17. 8 , 1 IX, A6 ) 

GO TO 957 

1970 WRITE (6,955) (DATIII), 11-1,22) 

955 FORMAT I 1H0,2A6,F 17 .3 ,4X, 5E 17. 8/7E 17. 8/7E17. 8 I 

957 LINES * LINES + 4 

IF (LINES. GE.55) CALL PAGE ID! L INES ) 

IF (I8.EQ.5) GO TO 1000 
IF I I8.EQ.24I 18-5 
DAT 1 4 ) - DAT! 23) 

IF (K.EQ.O) GO TO 1956 
IF (I1.E0.5) GO TO 940 

11 - 1 1-1 

12 » 11+9 
GO TO 940 

1956 IFII8.E0.5) GO TO 951 
1000 CALL PAGE IDIL INES I 
RETURN 
END 


PNCH0014 

PNCH0015 

PNCH0016 

PNC H0017 

PNCH0018 

PNCHOO 19 

PNCH0020 

PNCH0021 

PNCH0022 

PNCH0023 

PNCH0024 

PNCH0025 

PNCH0026 

PNCH0027 

PNCH0028 

PNCH0029 

PNCH0030 

PNCHOO 31 

PNCH0032 

PNCH0033 

PNCH0034 

PNCH0035 

PNCH0036 

PNCH0037 

PNCH0038 

PNCH0039 

PNCH0040 

PNCH0041 

PNCH0042 

PNCH0043 

PNCH0044 

PNCH0045 

PNCH0046 

PNCH0047 

PNCH004B 

PNCH0049 

PNCH0050 

PNCH0051 

PNCH0052 

PNCH0053 

PNCH0054 

PNCH0055 

PNCH0056 

PNCH0057 

PNCH0058 

PNCH0059 

PNCH0060 

PNCH0061 

PNCH0062 

PNCH0063 

PNCH0064 

PNCH0065 

PNCH0066 

PNCH0067 

PNCH0068 

PNCH0069 

PNCH0070 

PNCH007 l 

PNCH0072 

PNCH0073 

PNCH0074 

PNCH0075 

PNCH0076 

PNCH0077 

PNCH0078 

PNCH0079 

PNCH0080 

PNCH0081 

PNCH0082 

PNCH0083 

PNCH0084 

PNCH0085 

PNCH0086 

PNCH0087 

PNCH0088 

PNC H0089 

PNCH0090 

PNCH0091 

PNCH0092 

PNCH0093 

PNCH0D94 

PNCH0095 


29 


101 


107 


115 


125 


144 
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APPENDIX C 


MAP ROUTINES (DESCRIPTION AND LISTING) 
SKFILE(N, M) 


This routine causes M end -of -file marks to be skipped over on tape unit * 
routine is called for in the FORTRAN program sections C90, C530, and C590; i 
follows: 


$ I RLDR SKFILE 
STEXT SKFILE 


BINARY CARO (NUT PUNCHED) 


00 poo 

1 00000 

0 

OOOOA 

10001 

SKFILE SAVE 

( A • 2 ) 

ooooi 

077A 

00 

2 

00000 

10000 



00002 

077A 

00 

A 

00000 

10000 



00003 

0020 

00 

A 

00001 

10000 



COCOA 

06 3 A 

00 

A 

05000 

10011 



00005 

063A 

00 

A 

00061 

10001 



00006 

063A 

00 

A 

00002 

10001 



00007 

0 63 A 

00 

2 

OOOOI 

10001 



0< 010 

0 5C0 

00 

A 

00001 

10000 

CLA 

1 .A 

00011 

A73A 

00 

2 

00000 

10000 

PDX 

0,2 

00012 

7 00001 

2 

0100A 

10011 

T XL 

*+A * 2 * l 

00013 

0500 

60 

A 

OOOOA 

10000 

CLA* 

A, A 

000 l A 

0 73A 

00 

2 

00000 

10000 

PAX 

0*2 

01 015 

7 00000 

2 

00052 

10001 

T XL 

OUT, 2.0 

00016 

05C0 

60 

A 

00003 

10000 

CLA* 

3, A 

00017 

0621 

00 

0 

00057 

10001 

STA 

PAT 

00020 

063A 

00 

2 

00050 

10001 

SXA 

EOF. 2 

00021 

OOOOCOOOOOOO 

00010 

CALL 

«*FVIO< PAT .UNIT AD) 

00021 

0C7A 

00 

A 

03000 

10011 




BINARY CARD (NOT PUNCHED) 


00022 

I 00C02 

0 

0100A 

10011 



00023 

0 00061 

0 

00013 

10100 



0002 A 

0 oocoo 

0 

00057 

10001 



00025 

0 00000 

0 

00056 

10001 



0.0026 

0500 60 

0 

00056 

10001 

CLA* 

UNITAD 

00027 

0 73 A 00 

A 

00000 

10000 

PAX 

0 , A 

00030 

1 OOOOI 

A 

OLOOl 

10011 

T XI 

*+l , A , l 

00031 

0 63A 00 

A 

OOOA5 

10001 

SXA 

HOLD. A 

00032 

007A 00 

A 

06000 

10011 

TSX 

. .FTCK.A 

00033 

A 7 7A 00 

A 

00052 

10001 

AXC 

DUM— 3 , A 

0C03A 

063A 00 

A 

05000 

10011 

SXA 

SYSLOC.A 

00035 

CfOOOOOOOOOO 

00010 

CALL 

• BSF. 

00035 

0 C 7A 00 

A 

OAOOO 

1001 1 



000 36 

1 00000 

0 

01002 

10011 



00037 

0 00C61 

0 

00023 

10100 



OCOAO 

007A 00 

A 

07000 

10011 REED 

TSX 

. .F IOC .A 

00 OA 1 

0C7A 00 

A 

10000 

1001 1 

TSX 

• . FBC K, A 

000A2 

0 C20 00 

0 

000A5 

10001 

TRA 

HOLD 

000A3 

0020 00 

0 

00050 

10001 

TRA 

EOF 


BINARY CARD (NOT PUNCHED) 


OOOAA 

0020 00 

0 

000A5 

10001 


TRA 

HOLD 

000A5 

0520 00 

0 

OOOOO 

10000 

HOLD 

ZET 

**■ 

000A6 

0020 00 

0 

A1001 

10011 


TRA 

*-l 

Q00A7 

0C20 00 

0 

OOOAO 

10001 


TRA 

REED 

00050 

077A OC 

2 

OOOOO 

10000 

EOF 

AXT 

**,2 

C 0 0 5 1 

2 OOOOI 

2 

01002 

10011 


TIX 

*+2.2.1 




00052 


OUT 

RETURN 

SKFILE 

00C53 

063 A 00 

2 

00050 

10001 


SXA 

EOF, 2 

0005A 

0020 00 

0 

000 A 5 

10001 


TRA 

HOLD 

00055 

C 00000 

0 

00056 

10001 

DUM 

PZE 

UNITAD 

00056 

c ooooo 

0 

OOOOO 

10000 

UNITAD 

PZE 


00057 

o oocoo 

0 

OOOOO 

10000 

PAT 

PZE 


00060 

0 ooooo 

0 

OOOOO 

10000 

EOB 

PZE 


00061 

oooouoocoooo 

1 0000 


*LDI R 


00062 

62A2263 1 A3 2 5 

10000 







OOOOO 

01111 


END 



. This 
: is as 
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tr.DICT SKFILF 


BINARY CARD (NOT PUNCHFD) 


000063000000 

000004000005 


PREFACE 

START =0.L ENGT H=51tTYP6=7094* CMPLX=5 

6242263 14325 
000063000000 

SKFILE 

DECK 

L0C=0,LENGTH=51 

6242263 14325 
OCOOOOOCOOOO 

SKF 1 LE 

REAL 

LOC^O • L ENGT H=0 

333326653146 

2C0000100000 

• .F VI 0 

VIRTUAL 

SECT. 3, CALL 

332262263360 

2C0000100000 

• BSF • 

VIRTUAL 

SECT. 4, CALL 

627062434623 

2COOCOOOOOOO 

SYSLQC 

VIRTUAL 

SECT. 5 

333326632342 

200000000000 

..F TCK 

VIRTUAL 

SECT. 6 

333326314623 

2C00000C0000 

. . F I UC 

VIRTUAL 

SECT. 7 

333326222342 

200000000000 

..FBCK 

VIRTUAL 

SECT. 8 


SDKFND SKFILF 


001938 


REFERFNCES TO DEFINED SYMBOLS. 


CLASS 

SYMBOL 

VALUE 

REFERENCES 


DUM 

00055 

33 


EOB 

00060 



EOF 

00050 

20,43.53 


HOLD 

00045 

31.42.44.54 


..0001 

00002 

6.7 


. .0002 

00003 



. .0003 

OOOC4 

0 


OUT 

00052 

15 


PAT 

00057 

17.24 


REED 

00040 

47 

LCTR 

BLCTR 



OIJAL 

UNOS 



l CTR 

// 




SKFILF 

00000 

52 


UN I TAD 

00056 

25.26.55 

iEFERENCES TO VIRTUAL SYMBOLS. 


.BSF. 

4 

35 


. .FBCK 

8 

41 


..Fine 

7 

40 


• . F T C K 

6 

32 


. - F V 10 

3 

21 


SYSLOC 

5 

4.34 
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ilBLOR .BSF 


stext .bsf. 

ENTRY .BSF. 

OOCG3 SIZE SFT 3 

BINARY CARO (NOT PUNCHEO) 


00000 

0500 00 0 00010 

10001 

.BSF. 

CLA 

PON 

00001 

0634 00 4 00014 

10001 


SXA 

LK.DR, 4 

OC 002 

000000000000 

00010 


CALL 

..FIOS (SEL) 

00002 

0 C 74 00 4 03000 

10011 




00003 

1 OOOOl 0 01003 

10011 




00004 

0 00014 0 00005 

10100 




00005 

0 00000 0 00005 

10001 




00005 

400005041001 

OOOOl 


ORG 

*-l 

00005 

3 00003 0 00011 

10001 

SEL 

I ORT 

..BSF. ..SIZE 

00006 

0534 00 4 00014 

10001 


LXA 

LK.DR, 4 

00007 

0C20 00 4 OOOOl 

10000 


TRA 

1.4 

00010 

l 00000 0 00000 

10000 

PON 

PON 

0,,0 

00011 

2 CO 000 00 00 03 

OOOOl 

..BSF. 

BSS 

SIZE 

00014 

ocooooocoooo 

10000 

LK.DR 

LDIR 


00015 

332262263360 

10000 





00000 

OIlll 


END 



SCOICT .BSF. 


BINARY CARD (NOT PUNCHEO) 

OOOOl 60C0000 PREFACE START-0 » LENGT H= 14, TY PE=7094, CM PL X= 5 

00000 AO 000 05 

332262263360 .BSF. DECK LQC-0 • LENGT H= 14 

GO 001 6000000 

332262263360 .BSF. REAL LOC-O , LENGT H=0 

ocoooooooooo 

3333263)466 2 ..FIOS VIRTUAL SECT. 3. CALL 

200000100000 

SOKENO -BSF. 001938 


REFERENCES TO OFF IN EO SYMBOLS. 

CLASS SYMBOL VALUE REFERENCES 

.BSF. 00000 

..BSF. 000 1 L 5 

LK.OR 00014 1.6 

PON 00010 0 

1 CTR BLCTR 

OUAL UNQS 

L CTR // 

SEL 00005 5 

SET SIZF 00003 5.11 

REFERENCES TO VIRTUAL SYMBOLS. 

..FIOS 3 2 
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BCDUMP(A, B) 


This routine causes data to be punched out in absolute binary cards (up to 22 words 
per card). The arguments A and B are the first and last words to be dumped, respec- 
tively. The routine is called for in the FORTRAN program sections C100 and C790; it 
is as follows: 


% IBLOR BCDUMP 
STFXT BCDUMP 


00000 

1 00000 0 00005 

10001 

BCDUMP 

SAVE 

1,2,4 



00001 

0774 00 2 00000 

10000 






00002 

0774 00 1 00000 

10000 






00003 

0774 00 4 00000 

10000 






00004 

00?0 00 4 00001 

10000 






00005 

0634 00 4 05000 

10011 






00006 

0634 00 4 0014:3 

LOOOl 






00007 

0634 00 4 00003 

10001 






00010 

0634 00 1 00002 

10001 






00011 

Of 34 00 2 00001 

10001 






0001 2 

0500 00 4 00001 

10000 


CLA 

1,4 

IS THERE A 


00013 

4734 00 2 00000 

10000 


PDX 

0,2 

THIRD 


00014 

7 00002 2 C1002 

10011 


T XL 

*+2,2,2 

ARGUMENT 


00015 

4520 60 4 00005 

10000 


NZT* 

5,4 

YES, IS IT - 0 


00016 

0634 00 0 00056 

10001 


SXA 

CNUM,0 

YES 


00017 

0443 00 4 00003 

10000 


OLD 

3,4 


010466 

00020 

0040 00 0 01002 

10011 


TLO 

*+2 



00021 

0131 00 0 00000 

10000 


XCA 




00022 

4600 00 0 06000 

10011 


STO 

• • BRDB 

..BRDB HAS THE FIRST ADDRESS 

010466 

CARO (NOT PUNCHED) 







00023 

0534 00 1 06000 

10011 


LX A 

..BRDB, l 

PUT FIRST LOC. IN 1X1 

010466 

00024 

0402 00 0 06000 

10011 


SUB 

..BRDB 



00025 

0734 00 2 00000 

10000 


PAX 

0,2 

THE NO. OF WORDS OUTPUTED IN 

INDEX 2 

00026 

1 00001 2 01001 

10011 


TXI 

*+1,2,1 

TRUE WORD COUNT 


00027 

0634 00 1 00031 

10001 


SXA 

1X1*1 



00030 

0634 00 2 00032 

10001 


SXA 

1X2,2 



00031 

0774 OC 1 00000 

10000 

I XI 

AXT 

* * , 1 



0003? 

0774 00 2 00000 

10000 

1 X2 

AXT 

** ,2 



00033 

0C74 00 4 07000 

100X1 


TSX 

. .FTCK,4 


010666 

00034 

6 00026 2 00130 

10001 

TEST 

TNX 

LASTC,2.22 


011066 TS 

00035 

0634 00 ? 00032 

10001 


SXA 

1X2,2 



00036 

0774 00 2 00026 

10000 


AXT 

22,2 



00037 

1 00500 2 01001 

10011 

TEST4 

TXI 

*+l ,2 ,320 



00040 

4634 00 2 06000 

10011 


SXD 

..BRDB, 2 


010566 

00041 

2 C0500 2 01001 

10011 


TXX 

*+l ,2,320 



0004? 

0634 00 1 00052 

10001 


SXA 

C LA , l 



00043 

0634 00 1 06000 

10011 


SXA 

..BRDB, 1 


010466 

00044 

1 00026 1 01001 

10011 

LOOP 

TXI 

*+l ,1,22 



00045 

0634 00 1 00031 

10001 


SXA 

1X1 ,1 



CARD (NOT PUNCHED) 







00046 

0774 00 4 00033 

10000 


AXT 

27,4 


010466 

00047 

0600 00 4 06034 

10011 

CLEAR 

STZ 

. • BRDB+28 ,4 

CLEAR THE BUFFER. 

010466 

00050 

2 00001 4 41001 

10011 


T1X 

*-1,4,1 



00051 

0774 00 4 00000 

10000 


AXT 

0,4 



0005? 

0500 00 4 00000 

10000 

CLA 

CLA 

** , 4 

FILL THE BUFFER WITH 


00053 

0601 00 4 06002 

10011 


STO 

• . BROB+2 * 4 


010466 

00054 

l 77777 4 01001 

10011 


TXI 

*+l ,4 1 



00055 

? 00001 2 41003 

10011 


T I X 

*— 3 .2,1 



00056 

0774 00 1 C0000 

10000 

CNUM 

AXT 

* * , 1 

CONSECUTIVELY 


00057 

0500 00 0 001 37 

10001 


CLA 

HUNBIT 

NUMBER 


00060 

0771 00 0 00001 

10000 


ARS 

1 

THE 


00061 

7 00143 l 01C02 

10011 


T XL 

*+2,1.99 

BCDUMP 


00062 

I 77634 1 41002 

10011 


TXI 

*-2,1 .-100 

CARDS 


00063 

0621 00 0 00134 

10001 


STA 

GP+1 

FROM 


00064 

0500 00 0 00141 

10001 


CLA 

BITT 

7 ERO 


00065 

0771 00 0 00001 

10000 


ARS 

1 

TO 


00066 

7 00011 1 01002 

10011 


TXL 

*+2,1 .9 

999 


00067 

1 77766 1 41002 

10011 


TXI 

♦-2,1. -10 



00070 

0601 00 0 00135 

10001 


STO 

W0RD3 
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BINARY CARO (NOT PUNC HED ) 


00071 

0500 

00 

0 

00140 

10001 

CLA 

BITU 


00072 

0771 

00 

0 

00001 

10000 

ARS 

1 


00073 

7 00000 

1 

01002 

1001 1 

T XL 

*+2,1 .0 


00074 

1 77777 

1 

41002 

10011 

T XI 

*-2,1. -1 


00075 

4602 

00 

0 

00135 

10001 

ORS 

W0R03 


00076 

0534 

00 

l 

00056 

10001 

LXA 

CNUM, 1 


00C77 

1 00001 

1 

01001 

10011 

T XI 

*+1,1,1 


00100 

7 01747 

1 

01 OC? 

1001 1 

T XL 

*+2,1 ,999 


00101 

0774 

00 

1 

00000 

10000 

AXT 

0.1 


00102 

0634 

00 

1 

00056 

10001 

SXA 

CNUM, 1 


00103 

0443 

00 

0 

00133 

10001 

DLD 

GP 


00104 

4603 

00 

0 

06030 

10011 

DST 

• • BRDB+24 


00105 

0443 

on 

0 

00135 

10001 

DLD 

G P+2 


00106 

4603 

00 

0 

06032 

10011 

DST 

• • B RDB + 26 


00107 

0774 

00 

1 

00026 

10000 

AXT 

22,1 

COMPUTE 

00110 

4500 

00 

0 

06000 

10011 

CAL 

• * BRDB 

THE 

com 

0361 

00 

0 

06030 

10011 

ACL 

..BRDB+24 

CHECK SUM 

00112 

2 00001 

1 

41001 

10011 

T I X 

*-1.1.1 


00113 

C602 

00 

0 

06001 

10011 

SLW 

• i BRDB+1 



BINARY CARD (NOT PUNCHED) 


00114 

4774 

00 

1 

00137 

10001 


AXC 

OUT-3,1 

00 115 

0634 

00 

1 

C5000 

10011 


SXA 

SYSLOC, 1 

00116 

coocnooooooo 

00010 


CALL 

• • BCWD 

00116 

0074 

00 

4 

04000 

10011 




00117 

1 00000 

0 

01002 

10011 




00120 

0 00143 

0 

00110 

10100 




00121 

0074 

00 

4 

10000 

10011 


TSX 

• • F IOC , 4 

00122 

0020 

00 

0 

00031 

10001 


TRA 

1X1 

00123 

0020 

00 

0 

01001 

10011 

RETURN 

TRA 

* + l 

00 124 

0774 

00 

1 

00031 

10001 


AXT 

1X1 ,1 

00125 

C634 

00 

1 

00122 

10001 


SXA 

RETURN-1,1 

00126 

0074 

00 

4 

0 7000 

10011 


TSX 

. .FTCK.4 





00127 



RETURN 

BCOUMP 

00130 

0500 

00 

0 

00123 

10001 

LASTC 

CLA 

RETURN 

00131 

0601 

00 

0 

00122 

10001 


STD 

RETURN-1 

00132 

0020 

00 

0 

00037 

10001 


TRA 

TEST4 

00133 

420041004040 

10000 

GP 

OCT 

420041004040 

00134 

104020400000 

10000 


OCT 

104020400000 

00135 

0 00000 

0 

00000 

10000 

K0R03 

PZE 



BINARY CARD (NUT PUNCHED) 


00136 

0 00000 0 00000 

10000 

PZE 


00137 

0 CO GO 00 020 00 

10000 

HUNBI T OCT 

2000 

00140 

000020000000 

10000 

BITU OCT 

20000000 

00141 

200C00GC0000 

10000 

BITT OCT 

200000000000 

00142 

0 00000 0 11000 

10011 

OUT PZE 

• PCH. 

00 143 

000000000000 

10000 

*LDI R 


00144 

222324644447 

10000 




00000 

01111 

END 



010466 TS 
010466 TS 
010466 TS 
010466 TS 

010466 TS 
010466 TS 
010466 TS 
010466 TS 


010566 TS 
010566 TS 
010466 TS 


010666 TS 


5/4/66 TS861 


tCOICT RCDUMP 
BINARY CARD (NOT PUNCHED) 


000145000000 

0000040C0005 


PREFACE 

ST ART=0 , LFNGT H= 10 1, TYPE = 7094, CHPL X =5 

222324644447 
OOC 1450 CO 000 

BCDUMP 

DECK 

L0C = 0 , L ENGT H= 10 1 

222324644447 

000000000000 

BCDUMP 

REAL 

L0C=0. LENGTH-0 

222 324644447 

ocoooooooooo 

BCDUMP 

REAL 

L0C=0 , L ENGT H=0 

333322236624 

2000001C0000 

..BCWD 

VIRTUAL 

SECT. 4, CALL 

627062434623 

200000000000 

SYSLOC 

VIRTUAL 

SECT. 5 

333322512422 

2COCOOOOOOOO 

..BRDB 

VIRTUAL 

SECT. 6 

333326632342 

2oonooocoooo 

..F TCK 

VIRTUAL 

SECT. 7 

333326314623 

20G000OC0000 

. . F I OC 

VI RTUAL 

SECT. 8 

3 34 7233 C33 60 
2COOOOOCOOOO 

.PCH. 

VIRTUAL 

SECT. 9 


SDKFND BCDUMP 


001938 


0 
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rfffkences to defined symbols. 


CLASS 

SYM BOL 

VALUE 

REFERENCES 


BCDUMP 

00000 

127 


BI TT 

00141 

64 


RITU 

CG140 

71 


CL A 

C0052 

4? 


CL FAR 

00047 



CM IIM 

00056 

16.76.102 


GP 

00133 

63.103.105 


HIJNBIT 

0013 7 

57 


1X1 

00031 

27.45.122 ,124 


IX? 

00032 

30.35 


..0001 

00003 

7.10.11 


..0002 

000C4 



..0003 

0G0C5 

0 


LASTC 

00130 

34 


LOOP 

00044 



OUT 

0014? 

114 


RETURN 

00123 

125,130,131 

LCTR 

BL CTR 



QUAI 

UNOS 



1 CTR 

// 




TFST4 

00037 

132 


TEST 

00034 



WOR 03 

001 35 

70.75 

REFERENCES TO VIRTUAL SYMBOLS. 


. . RC WD 

4 

116 


..BROR 

6 

22.23.?4,40. 43 ,47,53 ,104,106,110,111,113 


. . F IOC 

8 

121 


. . FTCK 

7 

33,126 


• PCH . 

9 

142 


SYSLOC 

5 

5.115 


SIBLOR .RCRWD 
4TF XT .BCRWD 

FNTRY 

ENTRY 

ENTRY 

00034 SIZE SET 

BINARY CARD (NOT PUNCHED > 


oouoo 

0500 no 

0 

00012 

10001 

• . RCRD 

CLA 

00001 

0C?0 00 

0 

0100? 

10011 


TRA 

0000? 

4500 00 

0 

00013 

10001 

. . BCWD 

CAL 

0C00 3 

0634 00 

4 

00050 

10001 


SXA 

00004 

ococooocoooo 

00010 


CALL 

00004 

OC 74 00 

4 

05000 

10011 



00005 

1 OOOCl 

0 

C1003 

10011 



00006 

0 00050 

0 

00011 

10100 



00007 

c oocoo 

0 

00007 

10001 



C0007 

400007041001 

00001 


QRG 

00007 

3 00034 

0 

04000 

10011 

SEL 

I ORT 

00010 

0534 00 

4 

00050 

10001 


LXA 

coon 

CC?C 00 

4 

OQQQl 

10000 


TRA 

COO 12 

l 00000 

0 

COOOO 

10000 

PON 

PON 

00013 

3 00000 

0 

00000 

10000 

PTH 

PTH 

00014 

? C0000000034 

00001 

• • BRDB 

BSS 

00G50 

ococooocoooo 

10000 

LK.DR 

LOIR 

000 51 

332223516624 

10000 






00000 

01111 


END 


• BCR 0000 


•BCROOOl 


..BRDB 


11/1/65 

• . BCRD 


11/1/65 

. .BCWD 


11/1/65 

28 

RECORD SIZE 

11/1/65 


PON 

READ ENTRY 

FOR 

BCREAD 

11/1/65 

*+2 

GET CORRECT 

ARG 

FOR .FIOS 

11/1/65 

PTH 

WRITE ENTRY 

FOR 

BCDUMP 

11/1/65 

LK.DR, 4 

SAVE IR4 



11/1/65 

• • F IOS ( SELI 

SET UP READ 

OR 

WRITE 

11/1/65 


*-l 


11/1/65 

. .BRDB, ,S IZ6 

I/O COMMAND 

11/1/65 

LK.DR, 4 

RESTORE 4 

11/1/65 

1 .4 


11/1/65 

0,,0 


11/1/65 

0, ,0 


11/1/65 

SIZE 

I/O BUFFER 

11/1/65 


11/1/65 


11/1/65 


JMLR 

JMLR 

JMLR 

JMLR 


JMLR 

JMLR 

JMLR 

JMLR 

JMLR 


JMLR 

JMLR 

JMLR 

JMLR 

JMLR 

JMLR 

JMLR 

JMLR 

JMLR 
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tcmcr .RCRWD 


BCR 0002 


BINARY CARO {NOT PUNCHED) 
0000520 COOOO 


PREFACE 

START = Q • LENGT H=42 * TYPE-7094* CMPLX= 5 

000004000005 

322223516624 

.BCR WO 

DECK 

LOC=0 « LENGTH=42 

000C520C0000 

333322235124 

• • BCRO 

REAL 

L0C=0 , L ENGT H=0 

OCOOOOOCOOOO 

333322236624 

• • BC WO 

REAL 

LOC=?» LENGTH=0 

0C0000000002 

333322512422 

• • R RDB 

REAL 

LOC= 14, LENGT H=0 

CC0C00000014 
33332631 4662 

• • F I OS 

VIRTUAL 

SECT. 5, CALL 

2 CO 0001 00000 





SOKEND .RCRWD 001938 .BCR0003 

REFERENCES TO DEFINEO SYMBOLS. 


CLASS 

SYMBOL 

VALUE 

REFERENCES 


. .RCRO 

OOOCO 



. .RCWO 

00002 



. .BRDB 

00014 

7 


LK.OR 

00050 

3,10 


PON 

00012 

0 


PTH 

00013 

2 

LCTR 

RL CTR 



DUAL 

UN OS 



L CTR 

// 




SFL 

00007 

7 

SET 

SIZE 

00034 

7, 14 


REFERENCES TO VIRTUAL SYMBOLS. 




• . F 10 S 5 4 




$ I RL DR • PCH. 



•PCHOOOO 

SFLE .PCH. 

•PCH 

• ,PP, READY, OUTPUT, BLK=28 , MULT IREEL , 8 IN, NOL I ST 

•PCH0001 

SFDICT .PCH. 



•PCH0002 


BINARY 

CARO 

(NOT PUNCHED) 

205 C 02000034 PCH FILE 

• PCH 

BIN, OUTPUT, >10 HCVN#BLK=28 



OCOCOOOCOOOO 
4 723306C6060 
6C60606C6060 
6C6C606 C6060 

STFXT .PCH. 


• PC H0003 




ENTRY 

• PCH. 

BINARY 

CARD 

(NOT PUNCHED) 




00000 

0 0000.0 0 04001 10010 . 

PCH. PZE 

PCH 



PCH FILE 

, PP, READY, OUT PUT, BLK = 28, MULTIREEL , BIN, NOL I ST 



00000 01111 

END 




SCO ICT .PCH. 


.PCH0004 

BINARY 

CARD 

(NOT PUNCHFD) 





OOOOOIOCOOOO 

000004000005 

PREFACE 

ST ART=0, LENGT H= 1,TYPE=7094» CMPL X=5 



334723303360 .PCH. 

CC0001000000 

DECK 

LOC=0, LENGT H= 1 



334723303360 .PCH. 

OCOOOOOOOOOO 

REAL 

L0C = O , LENGT H=0 


S DKEND • PC H • 001938 .PCH0005 

REFERENCES TO DFFINEO SYMROI S. 


CLASS 

SYMBOL 

VALUE 

REFERENCES 


.PCH. 

OOOCO 


F II E 

PCH 

1 

0 

LCTR 

BLCTR 



OUAL 

UNOS 



LCTR 

// 




BCREAD(A, B) 


This routine causes absolute binary data cards as punched by the BCDUMP routine 
described previously to be read. Arguments A and B are first and last storage loca- 
tions of the data being read. The routine is called for in the FORTRAN program section 
C110 and is as follows: 


SIBLDR .BCRE A .BCROOOO 

tTFXT .BCREA .RCR0001 

ENTRY BCR E AO 11/1/65 JMLR 

8 INARY CARO (NOT PUNCHED) 


00000 

1 oocoo 

0 

00004 

10001 

BCRE AD SAVE 

1.4 


11/1/65 

JMLR 

00001 

0774 

00 

l 

00000 

10000 






0000? 

0774 

00 

4 

COOOC 

10000 






00005 

0C?0 

00 

4 

00001 

10000 






00004 

C634 

00 

4 

05000 

10011 






00005 

0634 

00 

4 

00056 

10001 






00006 

0634 

00 

4 

00002 

10001 






00007 

0634 

00 

l 

00001 

10001 






00010 

0500 

00 

4 

00003 

10000 

CLA 

3.4 

GET MRST ARG. 

11/1/65 

JMLR 

0001 1 

0560 

00 

4 

00004 

10000 

LOO 

4.4 

GET SECOND ARG. 

11/1/65 

JMLR 

0001? 

0C40 

00 

0 

01002 

10011 

TLO 

* + 2 

COMPARE 

11/1/65 

JMLR 

00015 

0131 

00 

0 

OOCOO 

10000 

XC A 


IF 2ND LESS EXCHANGE 

11/1/65 

JMLR 

00014 

4600 

00 

0 

00055 

10001 

STO 

TEMP 

STORE SMALLEST ARG 

11/1/65 

JMLR 

00015 

0400 

00 

0 

06000 

10011 

ADO 

SYSONE 

ADD l 

11/1/65 

JMLR 

00016 

0621 

00 

0 

00034 

10001 

STA 

STO 

STORE FOR MOVE 

11/1/65 

JMLR 

0001 7 

04 C? 

00 

0 

00055 

10001 

SUB 

TFMP 

COMPUTE COUNT 

11/1/65 

JMLR 

G00?0 

0621 

00 

0 

00030 

10001 

STA 

1X1 

STORE FUR MOVE 

11/1/65 

JMLR 

00021 

4774 

00 

4 

00051 

10001 

AXC 

UNC-3.4 

LOCATE UN05 LIKE FIV CALL 

11/1/65 

JMLR 

00022 

0634 

00 

4 

05000 

10011 

SXA 

SYSL0C.4 

AND SAVE IN SYSLJC 

11/1/65 

JMLR 


BINARY CARO (NOT PUNCHED) 


00023 

OCOOOOOOOOOO 

000 10 


CALL 

• * BCRD 

SET UP READ 

11/1/65 

JMLR 

00023 

0074 00 

4 

04000 

loon 







C0024 

1 00000 

0 

01002 

10011 







00025 

0 00056 

0 

00016 

10100 







00026 

OC 74 00 

4 

07000 

10011 

READ 

TSX 

• • F I OC . 4 

READ RECORD 

11/1/65 

JMLR 

00027 

0C74 00 

4 

10000 

10011 


TSX 

..FTCK.4 

CHECK READ 

11/1/65 

JMLR 

00030 

0774 00 

l 

ooooc 

10000 

I XI 

AXT 

**.l 

PICK UP COUNT LEFT 

11/1/65 

JMLR 

00031 

7 00026 

1 

00042 

10001 


T XL 

LASTC. 1.22 

IS ONLY 1 RFC LEFT 

11/1/65 

JMLR 

00032 

0774 00 

4 

OOOOC 

10000 

I X4 

AXT 

0.4 

REC CNT 

11/1/65 

JMLR 

00033 

0500 00 

4 

11002 

10011 


CLA 

. . BRDB+? . 4 

MOVE WORDS 

11/1/65 

JMLR 

00034 

0601 00 

1 

00000 

10000 

STO 

STO 

**. 1 

TO STORE 

11/1/65 

JMLR 

00035 

2 00001 

1 

01001 

10011 


T I X 

**1.1.1 

DECR. COUNT 

11/1/65 

JMLR 

00036 

l 77777 

4 

01001 

10011 


T XI 

*+l .4,-1 

DECR. REC COUNT 

11/1/65 

JMLR 

00037 

3 77752 

4 

00033 

1 0001 

CKIR4 

TXH 

STO— 1 *4.-22 

CR. REC COUNT 

11/1/65 

JMLR 

00040 

0634 00 

1 

00030 

1C001 


SXA 

I XI .1 

NO SAVE REMAINING COUNT 

11/1/65 

JMLR 

00C41 

0020 00 

0 

00026 

10001 


TRA 

READ 

GO READ NEXT RECORD 

11/1/65 

JMLR 

00042 

7 00000 

1 

00047 

10001 

LASTC 

T XL 

OONE, 1 .0 

ANY MORE WORDS 

04/26/66 

TS 

00043 

0774 00 

4 

00047 

10001 


AXT 

DONE, 4 

YES STORE TO EXIT NEXT 

11/1/65 

JMLR 

00044 

0634 00 

4 

00041 

10001 


SXA 

LASTC-1.4 

T IME 

11/1/65 

JMLR 


BINARY CARO (NOT PUNCHED) 


00045 

4636 00 

1 

00037 

10001 


SCD 

CKIR4.1 

SET REC CNT - NO WORDS LEFT 

11/1/65 

JMLR 

00046 

0020 00 

0 

00032 

10001 


TRA 

1X4 

GO PROCESS RECORD 

11/1/65 

JMLR 

00047 

0774 00 

4 

00026 

10001 

OONE 

AXT 

READ, 4 

RESTORE EXIT 

11/1/65 

JMLR 

00050 

0634 00 

4 

00041 

10001 


SXA 

LASTC-1 .4 


11/1/65 

JMLR 

00051 

0774 00 

4 

7775? 

10000 


AXT 

-22,4 

RESTORE RFC CNT 

11/1/65 

JMLR 

00052 

4634 00 

4 

00037 

10001 


SXO 

CKIR4.4 


11/1/65 

JMLR 




00053 



RETURN 

BCRE AD 


11/1/65 

JMLR 

00054 

0 00000 

0 

12000 

10011 

UNC 

PZE 

.UNO 5. 

ADD OF UNIT 5 

11/1/65 

JMLR 

00055 

0 00000 

0 

OOOOC 

10000 

TEMP 

PZE 



11/1/65 

JMLR 

00056 

OCOOOOOOOOOO 

10000 


♦ LOIR 





00057 

332223512521 

10000 










00000 

01111 


END 
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SCDICT .BCREA 


RINARY CARO (NUT PUNCHED! 


000060000000 

000004000005 


PREFACE 

START = 0 » L ENGT H=48, TYPE=7094. CMPL X=5 

332223512521 
0000600 GOOOO 

.BCREA 

DECK 

L0C=0,LENGTH=48 

2223512521 24 

ocoooooooooo 

RCREAO 

REAL 

LQC=0 .LENGT H=0 

2223512521 24 

ocoooooooooo 

BCREAD 

REAL 

L0C = 0 , LENGTH=0 

333322235124 

200000100000 

..BCRO 

VIRTUAL 

SECT. 4, CALL 

627062434623 

200000000000 

SYSLOC 

VIRTUAL 

SECT. 5 

627062464525 

2COOOOOCOOOO 

SYSONE 

VIRTUAL 

SECT. 6 

333326314623 

200000000000 

. .EIOC 

VIRTUAL 

SECT. 7 

33332663234? 

2COOOOOOOOOO 

..FTCK 

VIRTUAL 

SECT. 8 

333322512422 

2COOOOOCOOOO 

• • R ROB 

VIRTUAL 

SECT. 9 

33644 50C0533 
2C00000C0000 

• UN05. 

VIRTUAL 

SECT. 10 


SDKEND .BCREA 


REFERENCES TO DEFINED SYMBOLS. 

CLASS 

SYMBOL 

VALUE 

REFERENCES 


RCRFAD 

00000 

53 


CK IR4 

00037 

45.52 


DONE 

00047 

42.43 


1X1 

00030 

20.40 


1X4 

00032 

46 


..0001 

00002 

6.7 


..0002 

00003 



..0003 

00004 

0 


1 A STC 

00042 

31.44.50 


READ 

00026 

41,47 

LCTR 

HI CTR 



QUAL 

UN OS 



LCTR 

// 




STO 

00034 

16.37 


TEMP 

00055 

14,17 


IJNC 

00054 

21 

REFERENCES TO VIRTUAL SYMBOLS. 


• • BCR D 

4 

23 


• . BR DB 

9 

33 


• • F IOC 

7 

26 


..FTCK 

8 

27 


• UN 05 • 

10 

54 


SYSLOC 

5 

4.22 


SYSI1NF 

6 

15 


• BCR 0002 
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IALS(N, M) 


This function shifts the fixed point variable M left N places in the accumulator. 
The function is used in the FORTRAN program sections C140 and C160. 


IARS(N, M) 

This function shifts the fixed point variable M right N places in the accumulator. 
The function is used in the FORTRAN program sections C30 (twice), C140, and C770. 
The two sjiift functions are as follows: 


7094 RFLMGO ASSEMBLY* 


SIBLDR .SHIFT .SHI0000 

STEXT .SHIFT .SHI0001 


ENTRY I ALS 
ENTRY JARS 

BINARY -CARO INQT PUNCHED) 


COO 00 

0500 

60 

4 

00003 

10000 

IALS 

CLA* 

3.4 

00001 

0671 

00 

0 

0100? 

10011 


STA 

*+2 

0000? 

4500 

60 

4 

00004 

10000 


CAL* 

4.4 

00003 

0767 

00 

0 

00000 

10000 


ALS 

** 

00004 

4130 

00 

0 

00000 

10000 


XCL 


00005 

0131 

00 

0 

ooooc 

10000 


XC A 


00006 

0C20 

oc 

4 

00001 

10000 


TRA 

1.4 

00007 

0500 

60 

4 

00003 

10000 

IARS 

CLA* 

3.4 

00010 

0621 

00 

0 

01002 

10011 


STA 

**2 

00011 

45C0 

60 

4 

00004 

10000 


CAL* 

4,4 

00012 

0771 

00 

0 

00000 

10000 


ARS 

** 

00013 

4130 

00 

0 

00000 

10000 


XCL 


0G014 

0131 

00 

0 

00000 

10000 


XC A 


00015 

0C20 

00 

4 

00001 

10000 


TRA 

l ,4 





oooco 

Ollll 


END 



SC DIC T .SHIFT 


• SHI0002 


BINARY CARD (NOT PIJNCHEO) 
OOGGI6OCOOOO 
000004000005 
336230312663 
OGO Cl 6000000 
312143626060 
OOOOOOOCOOOO 
3121 51 626C60 
000000000007 


PREFACE 
.SHIFT DECK 
IALS REAL 
IARS REAL 


STARTED, LENGTH* 14, TYPE=7094, CMPL X= 5 
L0C*0, LENGTH* 14 
L0C=0.LENGTH=0 
L0C=7 * LENGTH* 0 


SDKEND .SHIFT 


001938 .SHI0003 


REFERENCES TO DEFINED SYMBOLS. 


Cl ASS SYMBOL VALUF 

IALS 00000 

IARS 00007 

LCTR 8LCTR 

OUAl UNOS 

ICTR // 


REFERENCES 
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APPENDIX D 


DETAILS IN PREPARING INPUT 
Uniform Format 

Except for binary EF data cards, all input cards are read in with a uniform format, 
namely A6, 4(A6, F12. 0), 12. The sections of the card will be referred to as follows: 




Label 1 

Numerical 

Label 2 

Numerical 

Label 3 

Numerical 

Label 4 

Numerical 





value 1 


value 2 


value 3 


value 4 


Card 











columns 

1 to 6 

7 to 12 

13 to 24 

25 to 30 

31 to 42 

43 to 48 

49 to 60 

61 to 66 

67 to 78 

79 to 80 

Format 

A6 

A6 

F12.0 

A6 

F12. 0 

A6 

F12.0 

A6 

F12. 0 

12 


The labels (label 1, label 2, . . . ) are codes on all types of input cards except one. 
(The exception, described in the section Data cards for FIXEDN, ALLN, or TEMPER 
methods, is the card containing spectroscopic data for atoms). These codes serve two 
purposes. One purpose is to specify an option in the program. For example, the label 
RRHO specifies a method of calculation. The second purpose is to identify the number 
which follows it. For example, the label R on the CONSTS card precedes the numeri- 
cal value of the universal gas constant. 

The last two columns (79 and 80) are used only with molecular constant data. For 
atomic gases, the principal quantum numbers are punched in these columns if needed 
with the method being specified. For diatomic and polyatomic gases, the electronic 
level identification is punched in these columns if excited states are included. 

Some general rules in keypunching the input cards are given as follows: 

(1) With one exception, card columns 1 to 6 and labels are alphanumeric and must 
be left -adjusted. The exception is that the labels on the DATA cards which contain 
spectroscopic constants for monatomic gases are numbers and do not need to be left- 
adjusted. (See DATA cards. ) 

(2) All blank labels are ignored by the program. 

(3) For the specific data, each numerical value must be immediately preceded by 
its label. However, the order of values is usually immaterial. Exceptions are noted in 
the details for the individual cards. 

(4) The numerical values may be the following: 

(a) A right -adjusted integer 

(b) A floating-point number without exponent (e. g. , 0. 00021), anywhere in the 

field 
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(c) A right -adjusted floating-point number with exponent indicating decimal 
place (e.g. , 2. 1-4 is 2. lxlO - ^) 

(5) The last two columns (79 and 80) are right -adjusted integers. 

Order of Input Cards 

Some discussion on the order of the input cards is given in the section General Flow 
of the Program. Specific instructions for placement of the individual cards are given in 
the details for making up the cards. 

Ordinarily the general data cards should precede the specific data cards. However, 
general data cards may be inserted after the specific data for one or more species. The 
information on these cards, however, will be available only for the calculations called 
for by specific data which follow it. If a second CONST card, ATOM card for a par- 
ticular atom, or set of EFDATA and binary EF data cards for a particular reactant is 
inserted, the data on the second card(s) are used for the succeeding calculations. 

Otherwise, the general data may be read in any order as long as the EFDATA and 
binary EF data cards remain in an ordered set for each reactant, namely EFDATA card 
followed by binary EF data cards as numbered in card columns 79 to 80. 

For a single computer run, there may be any number of species processed where 
each species requires its own set of specific data. The set of specific data cards for 
each species should be in the following order: 

(1) Formula card 

(2) Optional cards (REFNCE, EFTAPE, LOGK, LSTSQS, INTERM, or DATE) in 

any order 

(3) TEMP card(s), if any 'j 

(4) METHOD card > There may be more than one set of 

(5) DATA card(s) J these cards for a sin S le s P ecies - 

(6) FINISH card 

General Data Cards 

Examples of the individual cards discussed in this section are given in appendix F. 

CONSTS card . - This card, which contains physical constants, is not optional. An 
example of the necessary labels and one possible set of numerical values is as follows: 


Label 

Description 

Value (ref. 

HCK 

hc/k, second radiation constant 

1.4388 

R 

Universal gas constant 

1.98726 

SCONST 

Entropy constant S c (see eqs. (4) and (5)) 

3.66511 
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A more recent set of physical constants is given in reference 35. 

ATOM cards . - The order of the labels and information on each of these cards must 
be as follows: 


Card section 

Contents 

Columns 1 to 6 

ATOM 

Label 1 

Left-adjusted atomic symbol, for example, H, HE, LI 

Numerical value 1 

Atomic weight 

Label 2 

Left -adjusted formula of assigned reference element. 
The formula must give the atomic symbol, the number 
of atoms (even if just one), a left parenthesis, G or S 
depending on whether the elemental form is gas or 
solid, respectively, and finally a right parenthesis. 
Examples: P1(S), 02(G), LI1(S) 

Numerical value 2 

Coefficient, b, in equation (8) 

Numerical value 3 

Sum of the statistical weights £g^ (eq. (8)) for the 
ground electronic state 


Numerical values 2 and 3 are needed only with the FILL option on the METHOD 
card for monatomic gases. These values were included for Mg(g) in example 5 in 
appendix F. 

EFDATA and binary EF data cards. - A set of these cards contains enthalpy and 
free energy data for either a monatomic gas or an assigned reference element. The 
data will be put on FORTRAN tape number 3 and used for AH^, and log K calculations. 
There may be any number of sets, or none, of these cards in the general data. These 
cards are not keypunched, but rather are part of the punched card output of a previous 
run. In order to obtain these punched cards, the previous run required an EFTAPE 
option card in the species input data for either an assigned reference element or a 
monatomic gas. For example, a set of these cards were punched in example 2, ap- 
pendix F, for Fg(g) and used as input in example 3. 

LISTEF card . - The LISTEF card is optional and contains the card columns 1 to 6 
code only. The data on any binary EF data cards which follow the LISTEF card will be 
listed. The binary EF data cards for each reactant must still be immediately preceded 
by an EFDATA card. (See example 5 in appendix F. ) 

Specific Input Cards 

Examples of the individual cards discussed in this section are given in appendix F. 

Formula card . - This card is the first card for each species and is reserved for 
two pieces of information. First, the species formula, as detailed below, is always 
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required. Second, either an assigned enthalpy or a heat of reaction value with the cor- 
responding units and temperature is required only when calling for either of the follow- 
ing two options: 

(1) log K and AH calculations, or 

(2) Least-squares fit of the thermodynamic functions 

The first 12 columns are reserved for the formula of the species. Even when the 
formula takes less than 7 columns, columns 7 to 12 (label 1) should never be used for 
any code as is done on other types of cards. The formula should be left -adjusted and 
contain no blanks. It should be punched in the following order: 

(1) Each atomic symbol followed by the number of atoms even if the number is 1; 

these atomic symbols should correspond to the symbols on the ATOM card in 
the general input 

(2) For ionic species, the proper number of pluses or minuses should be punched 

(3) A left parenthesis 

(4) A G for a gas, an L for a liquid, or an S for solid 

(5) A right parenthesis 

The following are examples for ionized species: 


Species 

Columns 1 to 12 

F' 

N + 

o ++ 

°2 

FI -(G) 
N1+(G) 
01++(G) 
02 -(G) 


The remainder of the card is reserved for a heat of reaction, the energy units for the 
reaction, and the temperature of the reaction. There are five forms in which the heat 
of reaction may be expressed and five choices of units. These are summarized in 
table IV. 

REFNCE card . - The only purpose of this card is to identify sources of input data. 
The labels and numerical values are arbitrary. (See MgO(g) in example 5, appendix F. ) 

EFTAPE c ard. - This option card is used either with an atomic gas or an assigned 
reference element whose data are needed for succeeding AH^, and log K calculations. 
The card has only the letters EFTAPE punched in card columns 1 to 6. Inclusion of the 
card causes the Hg and the (H° - Hq)/RT and -(F^ - H°)/RT data for this species 
to be (1) put on the end of FORTRAN tape 3 where they are available for use with suc- 
ceeding calculations during the same computer run and (2) punched on cards to be in- 
cluded with other general data during future computer runs. (See example 2 and Mg(g) 
in example 5, appendix F. ) 

LOGK card. - Inclusion of this option card causes tables of thermodynamic prop- 
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erties including log K and AH to be listed. It simply has the code LOGK punched in 
card columns 1 to 4. The log K and AH calculations will be for reactions involving 
either the assigned reference elements or the monatomic gases or both depending on 
what data are available on FORTRAN tape 3. If there is no matching temperature in the 
appropriate atomic gas or assigned reference element data on FORTRAN tape 3, the 
data that are there will be interpolated by three -point Lagrangian interpolation. (See 
example 3 and Mg(s) in example 5, appendix F. ) 

LSTSQS card(s) . - Inclusion of one or more of these cards calls for a least-squares 
fit of the functions to equations (10) to (12) as discussed in the section on Least -squares 
fit . The LSTSQS card(s) may contain three possible labels, T, EXP, and TCONST, and 
their corresponding values. In table V, desired temperature intervals are given by 
using T labels, and exponents (q^ in eqs. (10) to (12)) are given by using EXP labels. 
The fit will be constrained in two ways, (1) to fit the data at one temperature which must 
be an endpoint of an interval (TCONST label) and (2) to give equal values of the thermo- 
dynamic functions at common endpoints of the intervals. The numerical values asso- 
ciated with the T and TCONST codes must be equal to some temperature in the tern - 
perature schedule for the thermodynamic functions. (See Mg(g) in example 5, ap- 
pendix F . ) 

If any of the three possible labels are omitted on the LSTSQS card(s), values will 
be assigned by the program. If no TCONST is given, it will be assigned to be either 
1000° K or, if a phase transition takes place, the temperature of transition (each phase 
will be fitted separately). If no EXP is given, the q^ values will be assigned to be 
0, 1, 2, 3, and 4. If no T’s are given, the temperature intervals will be assigned to 
be 300° to 1000° K and 1000° to 5000° K. (See example 4, appendix F. ) 

INTERM card . - This card calls for intermediate output to be printed out when 
thermodynamic functions are being calculated from molecular constants. (See HgCXg) 
in example 5, appendix F. ) 

DATE card . - The purpose of the DATE card is to punch a date or code on the 
binary least squares coefficient cards. The card should contain only one label which 
will be punched as the last word on the last least squares coefficient card punched for 
each species. (See Mg(g) in example 5, appendix F. ) 

T EMP card (s). - These cards give a temperature schedule for which thermodynamic 
functions are to be calculated. The program allows for a maximum of 201 temperatures 
per species. 

Each temperature in the desired temperature schedule may be specified individually 
with a T label. (See table V. ) However, if there are several temperatures incre- 
mented by a fixed amount, this part of the temperature schedule may be specified by 
punching in order: the lowest temperature labeled T, the increment labeled I, and the 
highest temperature labeled T. For example, the temperature schedule, 100, 200, 
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298. 15, 300, 400, 500, 600, 688. 2, 700, 750, 800, 850, 900, 962. 3, and 1000, could 
be keypunched as follows: 


Card 

Label 

Numerical 

Label 

Numerical 

Label 

Numerical 

Label 

Numeri- 

col- 

1 

value 1 

2 

value 2 

3 

value 3 

4 

cal value 

umns 








4 

1 to 6 









TEMP 

T 

100. 

I 

100. 

T 

600. 

T 

688.2 

TEMP 

T 

700. 

I 

50. 

T 

900. 

T 

962.3 

TEMP 

T 

1000. 








The temperature, 298. 15° K, is always inserted in the temperature schedule when 
there are temperature values below and above 298. 15° K. (See examples 1 and 3, and 
Ar(g), H 2 0(g), Mg(s), and MgO(g) in example 5, appendix F. ) 

If there are no TEMP cards in a set of data where the thermodynamic functions are 
to be calculated, the program (section C40) assumes the standard temperature schedule 
used in reference 3, namely, every 100° from 100° to 6000° K with 298. 15° inserted 
between 200° and 300° K. (See example 2 and Mg(g) in example 5, appendix F. ) 

The only option for which TEMP cards must not be used is READIN (see METHOD 
card ). For this option, the temperatures are read in on DATA cards together with the 
thermodynamic functions to which they correspond. (See example 4 and Mg(s) in 
example 5, appendix F. ) 

METHOD card . - This card follows the option cards and must be included for any 
calculations to take place. It specifies the technique for obtaining the thermodynamic 
functions (see section Options) and immediately precedes the data required by the 
method (DATA cards). The card has the code word METHOD in card columns 1 to 6. 

The possible codes in the label and numerical value columns are summarized in 
table VI. The functions may be (1) calculated from molecular constants for ideal gases 
(labels FIXEDN, ALLN, or TEMPER for monatomic molecules and labels RRHO, 
PANDK, JANAF, NRRHOl, or NRRH02 for diatomic and polyatomic molecules) (see 
examples 1 to 3 and H 2 0(g), Mg(g), and MgO(g) in example 5, appendix F), (2) cal- 
culated from coefficients and exponents using equations (10) to (12) (label COEF), (see 
Ar(g) and Mg(z ) in example 5, appendix F), or (3) read in directly (label READIN) 

(see example 4 and Mg(s) in example 5, appendix F). These calculation techniques 
are discussed in the section CALCULATION OF IDEAL GAS THERMODYNAMIC 
FUNCTIONS. 

In conjunction with these method codes, the METHOD card may contain some addi- 
tional codes and information as indicated in table VI. 

Occasionally, a single method may not apply to the entire desired temperature range 
for a species. In this case the following cards must be included for each temperature 
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interval, in order: (1) TEMP card(s) for the desired temperature interval (if the method 
is not READIN), (2) a METHOD card for this temperature interval, and (3) the asso- 
ciated DATA cards. The sets should be in order of increasing temperature. (See 
Mg(s, i) in example 5, appendix F. ) 

DATA cards . - These cards follow the METHOD card and contain the input data re- 
quired by the method. Except for the spectroscopic data of monatomic gases (see ex- 
ample 2 and Mg(g) in example 5, appendix F), the labels are codes identifying the 
numerical values that follow them. Table VII is a summary of the labels and numerical 
values to be used on DATA cards for the various methods given in table VI. A further 
description of the DATA cards for the various methods follows: 

DATA cards for READIN method: Each card must contain four labels with the four 
corresponding numerical values as indicated in table VH. The four labels correspond 
to temperature, heat capacity, enthalpy, and either entropy or free energy. Tempera- 
ture always has the label T; however, the other three have several options as given in 
table VII depending on the data to which they correspond. If enthalpy and free energy 
are referred to Hggg ^g rather than Hq, the H^gg jg - Hq value must be included 
on the METHOD card (label H298H0) if H^, - Hq values are desired in the final tables. 
(See example 4 and Mg(s) in example 5, appendix F. ) 

DATA cards for COEF method: The coefficient and exponent values for each set of 
empirical equations (eqs. (10) to (12)) must be preceded by the values of the temperature 
limits (T labels in table VH) for which the equation applies (see Ar(g) and Mg(s) in 
example 5, appendix F). The lower T value must be the first numerical value. 

Occasionally, the coefficients a^ (i = 1, r) are available while the integration con- 
stants for enthalpy and entropy a r+ j and a r+ g are not. For this case, a r+ ^ and 
a r+2 va ^ ues ma y t> e calculated by the program in one of the following ways: 

(1) Reading in an enthalpy and an entropy or free energy value with the correspond- 
ing temperature on the first card. The labels and values should be the same as for the 
DATA cards for the READIN method except that C° or C°/R may be omitted. 

(2) Using the value of enthalpy or entropy of transition (DELTAH or DELTAS on the 
METHOD card (see table VI)). This method may be used only when the two phases re- 
lated by the transition value are being processed in the same run. The reason is that 
the transition value is combined with the enthalpy or entropy value for the last tempera- 
ture of the preceding phase. (See Mg(s, ft) in example 5, appendix F. ) 

With COEF method there is an option to punch these coefficients on binary cards in 
the form required for use with the IBM program described in reference 33. (With 
LSTSQS option, similar binary cards are always made and are not optional. ) For each 
set of coefficients the temperature intervals to be punched are indicated with TPUNCH 
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labels and corresponding values which give the endpoints of the intervals. These 
TPUNCH values may or may not be the same as the T values for the set. For refer- 
ence 33, coefficients for two temperature intervals are required. In the event there 
is only one set of coefficients available, the same set can be used in two intervals by 
using three TPUNCH values. (See Ar(g) in example 5, appendix F. ) 

DATA cards for FIXEDN, ALLN, or TEMPER methods: In contrast to all other 
types of cards using the universal format, these cards use the label columns as well as 
the numerical columns for numbers. The labels contain the total angular momentum 
quantum number J m (eq. (7), and the numerical values contain the excitation energy 
e m /hc (eq. (7)) in centimeters - *. For either the FILL option or the FIXEDN method, 
the principal quantum numbers must be punched in card columns 79 to 80, right- 
adjusted. The data on the remaining portion of the card must correspond to that prin- 
cipal quantum number. 

DATA cards for RRHO, PANDK, JANAF, NRRHOl, or NRRH02 methods: The 
equations for the partition function of the various methods are given in tables I and n. 
The input data must always contain at least the following quantities for each electronic 
state: 

(1) The fundamental vibrational frequencies of the molecule (u> e or ia) 

(2) Either the rotational constant(s) (B Q for linear; A Q , Bq, and C Q for nonlinear 

molecules) or the moment(s) of inertia (Ig for linear; 1^, Ig, and 1^ for 
nonlinear molecules) 

(3) The symmetry number 

(4) The statistical weight 

Other spectroscopic constants such as anharmonicity or rotation -vibration interaction 
constants are optional. If these optional constants are not included, correction terms 
involving them are automatically excluded from the partition function. (See example 1 
(RRHO), example 3 (PANDK), and H 2 0(g) (NRRA02) and MgO(g) (PANDK) in ex- 
ample 5, appendix F.) 

When excited electronic states are involved, the data for each state are read and 
processed separately. Therefore, the data cards must be grouped together with an 
identifying number in card columns 79 to 80. For example, the data for the three 
electronic states included for MgO(g) in example 5, appendix F, are distinguished by 
1, 2, or 3 punches in card column 80. 

FINISH card . - This card is the last card in the specific input cards for each 
species. It contains only the code in card columns 1 to 6. 
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APPENDIX E 


DETAILS IN OUTPUT 
Punched Cards 

Certain options in the specific data cause cards to be punched. A description of 
these punched cards follows. 

EF DATA and binary EF data . - A set of EFDATA and binary EF data cards is 
punched when an EFTAPE card has been included in the specific data for either an as- 
signed reference element or a monatomic gas. 

The first card is the EFDATA card and is punched in the uniform format. It con- 
tains the formula, the Hq value, the melting point, and the number of temperatures for 
which enthalpy and free energy data are available on succeeding binary cards. 

The remaining cards are binary EF data cards and are punched in column binary. 
Each binary card contains the chemical formula and seven temperatures with corre- 
sponding (H^, - Hq)/RT and -(F^, - Hq)/RT values (except possibly the last card which 
may have seven or less). 

These cards are punched so that they may be used as general input for subsequent 
computer runs and be available for AH^, and log K calculations. (See the general 
input in examples 3 and 5 in appendix F. ) 

Coefficients for empi rical equations . - Coefficients for empirical equations 
(eqs. (10) to (12)) will be punched on column binary cards if one of the following is true: 

(1) A LSTSQS option card is included in the specific data for a particular species. 

The coefficients are obtained from a least -squares fit of the functions. 

(2) Predetermined coefficients are read in directly (method COEF), and TPUNCH 
codes are on the DATA cards. 

The format used for punching these coefficient cards was selected to be consistent 
with that used in reference 33. The following information is punched on these cards: 

(1) The formula of the species as given on the formula card 

(2) The ionization potential if there is one 

(3) The entire temperature range 

(4) The temperature ranges of the intervals 

(5) Seven coefficients (a^, . . . , a^ in eq. (10), a r+ ^ in et l- (H)» and a r+ 2 in 

eq. (12)); if there are fewer than 5 coefficients in equation (10), zeros will be in- 
serted but if there are more than 5 coefficients, only the first 5 will be punched 

Note the exponents (qj in eqs. (10) to (12)) are not punched. However, they are 
listed together with the a^ following the intermediate data associated with the least- 
squares fit for each temperature interval. (See output listings for example 4 and Mg(g) 



in example 5, appendix F. ) For reference 33, = 0, q 2 = 1, . . • , q§ = 4. 

There are 24 binary words on a card. Table VTH shows the contents of these cards 
for up to the nine interval limit. Only as much data are punched as required by the tem- 
perature intervals. The temperature intervals are the values following T labels on the 
LSTSQS cards or TPUNCH labels on the DATA cards following a METHOD COEF card. 
When no T labels are punched on the LSTSQS card(s), two intervals are assumed, 

T = 300° to T = 1000° K and T = 1000° to T = 5000° K. The contents of these cards 
are listed as they are punched. (See output listings for examples 4 and Ar(g) and 
Mg(g) in example 5, appendix F. ) 


Listed Output 


Input data cards in the uniform format as well as tables of thermodynamic functions 
resulting from each set of specific data are always listed. Other data will be listed with 
certain options. 

Input data . - All input data cards in the uniform format are listed immediately after 
they are read. The output format is similar to the uniform input format with spacing 
between the labels and values. Numerical values which are zero are left blank. (See 
examples in appendix F. ) 

The data on the binary EF data cards which are read in as input will be listed only 
when an LISTEF card precedes the EFDATA card somewhere in the deck. (See the gen- 
eral input and output data in example 5, appendix F; only the Og data are listed. ) 

Punched ca rd output. - The contents of all cards punched by the program will be 
listed except for the binary EF data cards. For this latter case, the punched data will 
be listed only when a LISTEF card precedes the specific data somewhere in the deck. 

In example 3, appendix F, the punched binary EF data are not listed while for Mg(g) 
in example 5, they are. This is because of the LISTEF card in the general data of 
example 5. 

Tables of thermodynamic p roperties . - Two tables of thermodynamic functions are 
always listed with each set of specific data. These tables are the following: 

(1) Table of dimensionless properties as follows: 

T, C°/R, (H° - Hq)RT, (H° - H° 9g 15 )/RT (if T = 298. 15 is in T range), 

S° /R, -(F° - Hq)/RT, -(F° - H° 98 15 )/RT (if T = 298. 15 is in T range), 

H^/RT (if an Hq value is available), and -F^,/RT (if an Hq value is 
available) 

(2) Table of dimensioned properties as follows: 
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T, C°, H° - H° H° - H^ g8 15 (if T = 298. 15 is in T range), S°, -(F° - H°), 
-(F^ - Hggg 15 ) (if T = 298. 15 is in T range), H^, (if an Hq value is avail- 
able) and -F^, (if an Hq value is available) 

See output for the examples in appendix F. 

When a LOG K option card is included in a set of specific data, two additional tables 
are listed for that particular species. (See example 3 and Mg(s) and MgO(g) in ex- 
ample 5, appendix F. ) These two tables are the following: 

(1) Table of dimensionless properties as follows: 

T, Cp/R, (H° - Hq)/RT, S°/R, ~(F° -H°)/RT, H°/RT, F°/RT, and 

AH^, /RT and -AF^, /RT for reactions from the assigned reference elements, 
and AH^/RT and -AF^,/RT for reactions from the monatomic gases 

(2) Table of dimensional properties as follows: 

T, C°, H° - Hq, S°, -(F° - Hq), H° , and AH° and log 1Q K for formation 

from the assigned reference elements, and AH^ and log^gK for formation 
from monatomic gases 

These tables will have an asterisk and a footnote indicating where a melting point has 
occurred in an assigned reference element. (See MgO(g) in example 5, appendix F. ) 

Least squares polynomia l and errors . - A least -squares fit of the functions, Cp/R, 
(H^, - Hq)/RT, and S° /R, results when LSTSQS card is included in a set of specific 
data. (See example 4 and Mg(g) in example 5, appendix F.) 

For each temperature interval, the following information is listed: 

(1) For each T within the interval, 

(a) C°/R, (H° - Hq)/RT, and -(F° - H°)/RT 

(b) Functions in (la) as calculated from least-square coefficients and equa- 

tions (10) to (12) 

(c) Differences in (la and b); these values are referred to as errors hereinafter 

(d) Values in (lc) divided by original values in (la); these values are referred 

to as relative errors hereinafter 

(2) For errors in entire interval for each function in (la): 

(a) Maximum relative error (MAX REL ERR) and corresponding temperature - 

see (Id) 

(b) Average relative error (AVER REL ERR) - see (Id) 

(c) Root mean square of relative errors (REL LST SQ ERR) - see (Id) 

(d) Maximum error (MAX ERR) and corresponding temperature - see (lc) 

(e) Average error (AVER ERR) - see (lc) 

(f) Root mean square of errors (LST SQ ERR) - see (lc) 
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(g) C°/R equation (see eq. (10)) for coefficients /R 

(h) Integration constants in equations (11) and (12) as follows: 

(H - H0)/R CONSTANT = (a r+1 - Hg)/R 
H/R(A6) CONSTANT = a f+1 /R 
S/R CONSTANT = a r+2 /R 

Finally, the contents of the punched binary coefficient cards are listed. See the section 
Punched card output. 

Intermediate data with FILL option for monatomic gases . - Unobserved but pre- 
dicted energy levels for monatomic gases will be included in the partition function 
(eq. (7)) if the FILL code is punched on the METHOD card. See the section Inclusion 
of predicted levels for the method of predicting the levels. 

In Mg(g) in example 5, appendix F, the following data are listed in columns from 
left to right: 

(1) b value from ATOM card (see eq. (8)) 

(2) Principal quantum number n 

(3) bn 2 [predicted £ (2J + 1)] 

(4) £ (2J + 1) from input data 

(5) Column (3) minus column (4) 

(6) Highest energy level for principal quantum number 

(7) Sum of column (5) and 2J + 1 for level of column (6) 

Intermediate data with INTERM card . - Intermediate data are listed for ideal gas 
calculations if an INTERM card is included in the specific data for a particular species. 

Monatomic gases: For monatomic gases several items are listed. The input data 
are listed in order of increasing energy level values. The data include, from left to 
right, values for the principal quantum number, J, 2J + 1, and the energy level. 

For each temperature, three lines of data are listed as follows: 

(1) A statement indicating where the energy levels were cut off; five possible state- 
ments are the following: 

(a) NOT ALL LEVELS WERE USED. X IS GREATER THAN 85. - This state- 
ment indicates that not all atomic energy levels were used because e/kT > 85 in equa- 
tion (7). 

(b) ALL LEVELS USED THROUGH N = (FIXEDN value) - This statement indi- 
cates all atomic levels were used through a fixed principal quantum number (method 
FIXEDN). 

(c) ALL ASSIGNED LEVELS HAVE BEEN USED - This statement indicates all 
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atomic levels in input were used (method ALLN) 

(d) NOT ALL ASSIGNED LEVELS WERE USED, Q AND DERIVATIVES ARE 
TOO SMALL - This statement indicates not all atomic levels were used because the 
following conditions occurred: 


Q m < lXKT 10 


and 


(e m / kT ) 2 Q m 1X10- 10 


when e m /kT>2. 

(e) ALL LEVELS HAVE BEEN USED TO THE THERMAL BINDING ENERGY 
(lowered IP value). - This statement gives the lowered ionization potential value (i. e. , 
ionization potential - Tk/hc) where levels have been cut off. 

(2) Values of T, C°/R, (H° - H°)/RT, and -(F° - H°)/RT 

(3) Values of e/kT, Q, T dQ/dT, T 2 d 2 Q/dT 2 + 2T dQ/dT (eq. (7)) 

Diatomic and polyatomic gases: Intermediate results are listed when an INTERM 
card is included with the specific input data cards for a diatomic or polyatomic gas and 
the method of calculation is RRHO, JANAF, PANDK, NRRAOl, or NRRA02. These 
results include values for the formulas and variables defined in tables I and H. Although 
the molecular constants are always listed as they are punched on the DATA cards with 
an INTERM card, many of them are listed again. 

The following data are listed (see tables I and n for definitions and H 2 0(g) in ex- 
ample 5, appendix F): 

(1) Aq, Bq, Cq, p 

ABC 

(2) a^, a ^ , a . , a. where i = 1 to the number of unique frequencies 

(3) 0p ^3 

<4) y ijk 

(5) Xy 

(6) LEVEL = (value in card columns 79 to 80 which is used to identify the electronic 

levels) 

(7) dp Sii 

(8) T 

(9) Up rp Sp i 

(10) As required by the method of calculation, values for the formulas in tables I 
and H are listed for Q, In Q, T d(ln Q)/dT, and T 2 d 2 (ln Q)/dT 2 + 
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2T d(ln Q)/dT. The latter three values are additive contributions to 

-(F^ - H°)/RT, (H° - Hq)/RT, and C°/R, respectively, when only the ground 

electronic state is considered. These values are identified in the listing by 
codes which correspond to the formula numbers as follows: 


Code on listing 

Formula numbers 
in tables I and II 

ELECTR 

1 

H.O. 

2 

R.R. 

3 or 4 

RHO 

5 

THETA 

6 

FERMI 

7 

ALPHA 

8 to 11 

XIJ 

12 or 14 

YUK 

13 

G+AG 

1 16 

WEZE 

15 

AXIJ 

17 

(XU)2 

18 and 19 

XY 

20 and 21 

G2, GX 

22 and 23 

AX2 

24 to 27 
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APPENDIX F 
EXAMPLES 


The punched card input and listed output are given for several sample problems. 
The first four examples are simple problems with minimal input. Each of these 
examples is for a particular species with only as much general data shown as required. 
These four problems may be run individually, or they may be run together in a single 
computer run. For this latter case, the general data may be combined. A listing of 
input cards is given with the combined general data of these first four species. 

The fifth example includes specific input cards for five species and general input 
cards which accommodate a much larger variety of problems. It has, for example, 
ATOM cards for the first 20 elements. Such a set of ATOM cards may be considered a 
permanent part of the operating deck. 

All input data are the same as the data used in reference 3. Format details for 
keypunching input cards are described in appendix D. 


Example 1 (MgF 2 (g) with RRHO Method) 

Problem . - Calculate the thermodynamic functions for MgFg(gas) from 100° to 
500° K at 100° intervals assuming a rigid -rotator harmonic -oscillator approximation and 
using the following data: 

(1) Physical constants: hc/k = 1.4388 (centimeters)(degrees), R= 1.98726 calories 

per mole per °K, and S c = -3. 66511 calories per mole per °K 

(2) Atomic weights: F = 19. 00 grams per mole and Mg = 24. 32 grams per mole 

(3) Molecular constants: statistical weight = 1 ia, = 540 centimeter - ^, = 500(2) 

-1 i 1 _qq ^ 

centimeter , = 820 centimeter" , Ig = 19.77X10 (grams)(centimeters ), 

and symmetry number = 2 

Punched card input. - The punched card input is as follows: 


Card 

Label 

Numerical 

Label 

Numerical 

Label 

Numerical 

Label 

Numerical 

col- 

1 

value 1 

2 

value 2 

3 

value 3 

4 

value 4 

umns 









1 to 6 









CONSTS 



HCK 

1.4388 

R 

1.98726 

SC0NST 

-3.66511 

ATOM 

F 

19.0000 

F2(G) 






ATOM 

HG 

24.3200 

MG1 (S) 






MG IF 2 ( 

3) 








TEMP 

T 

100. 

I 

100. 

T 

500. 



METHOD 

*RH0 








DATA 

STATWT 

1. 

VI 

540. 

V2 ( 2 ) 

500. 

V3 

820. 

DATA 

IB 

19.77 

SYMNO 

2. 





FINISH 
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Listed output. - The listed output is as follows: 


cowsrs 

ATOM 

ATOM 

MG1F2I G ) 

TEMP 

METHOD 


F 

MG 


T 

RRHO 


19. 

24.3199999 


100 . 


HCK 
F2(G) 
MG 1 { S) 


i. 4388000 


100 . 


1.9872600 


500. 


MOLECULAR WT.= 62.32000 

DATA STATWT 1. VI 540. V2(2) 500. 

DATA IB 19.7700000 SYMNO 2. 

FINISH 

MG1F2IG) 

EITHER ASINDH. DELTAH,HF298, IPATOM.OR DTSSOC WAS NOT FOUND ON THE FORMULA CARD, C520 
MG1F 2( G I 

NO HZERO VALUE IS AVAILABLE 


SCONST -3.6651100 


MG1F2IG) 


V3 


820. 


MG1F2IG) 


T 

CP/R 

CH-HO) /RT 

IH-H298) /RT 

S/R 

-{ F-HOl/RT 

— 1 F-H298 ) /RT 

100 

3.6044264 

3.5141867 

-9.1857179 

23.0655146 

19.5513279 

32.2512326 

200 

4.6689711 

3. 8004504 

-2.5495019 

25.8549500 

22.0544996 

28.4044518 

298.15 

5.6537278 

4.2595689 

0.0000001 

27.9161122 

23.6565433 

27.9161119 

300 

5.6683680 

4.2682114 

0.0349098 

2 7.9511299 

23.6829185 

27.9162199 

400 

6.2824038 

4.7016582 

1.5266821 

29.6735663 

24.9719081 

28.1468842 

500 

6.6502306 

5.0576122 

2.5176313 

31.1 183319 

26.0607197 

28.6007006 

MG1F2I G ) 

T 

CP 

H-HO 

H-H298 

S 

-(F-HO) 

— ( F— H298 ) 

100 

7.1629324 

698.3603 

-1825.4410 

45.837174 

3885.3572 

6409.1584 

200 

9.2784594 

1510.4966 

-1013.3046 

51.380507 

8765.6049 

11289.4061 

298.15 

11.2354270 

2523. 8013 

0.0000 

55.476573 

14016.5389 

16540.3401 

300 

11.2645209 

2544.6137 

20.8125 

55.546162 

14119.2349 

16643.0359 

400 

1 2 *4847697 

3737.3669 

1213.5657 

58.969091 

19850.2695 

22374.0708 

500 

13.2157372 

5025.3952 

2501.5940 

61.840216 

25894.7126 

28418.5139 


MG1F2( G I 


MG1F2I G ) 


MGIF21G) 


Example 2 ^(g) with PANDK Method and EFTAPE Option) 


Problem. - Calculate the thermodynamic functions for the reference element, 

F 2 (g), where the standard temperature schedule is assumed. Prepare a set of EFDATA 
and binary EF data cards for future AH^, and log K calculations. Use the PANDK 
method and the following data: 

(1) Physical constants and atomic weights: Same as for example 1 

(2) Heat of formation: AH^ 298 15 o (assigned enthalpy at 298. 15° K) = 0 

(3) Molecular constants: statistical weight = 1, o> e = 923 centimeter -1 , w e x e = 

15.6 centimeter -1 , B = 0.8909 centimeter -1 , a = 0.0162 centimeter -1 , 
and symmetry number = 2 

Punched card input. - The punched card input is as follows: 


90 



Card 

Label 

Numerical 

Label 

Numerical 

col- 
umns 
1 to 6 
CONSTS 

1 

value 1 

2 

HCK 

value 2 
1.4388 

ATOM 

F 

19. 

F2<G> 


F2IG ) 

EFTAPE 

METHOD 

PANDK 


HF298 

0 . 

DATA 

STATWT 

1. 

WE 

923. 

DATA 

FINISH 

ALPHAE 

• 0162 

SYMNO 

i 

2. 


Label 

3 

Numerical 
value 3 

Label 

4 

Numerical 
value 4 

R 

1.98726 

SCONST 

—3.66511 

WEXE 

15.6 

BE 

.8909 


Listed output. - The listed output is as follows: 


CONSTS 


HCK 

ATOM 

F 19. 

F2(G> 

F2(G ) 


HF 298 

EFTAPE 



METHOD 

PANDK 


MOLECUL AR 

W T •= 38.00000 


DATA 

STATWT 1. 

WE 

DATA 

ALPHAE 0.01620000 

SYMNO 

FINISH 



F2( G) 




1.4389000 R 1.9872600 SCDNST 


923. WEXF 15.6000000 BE 

2 . 


- 3 . 6651100 


0. 89090000 


F 2 ( 3 ) 
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HZERO = 


2109,693 


T 

CP/R 

( H— HO ) /R T 

CH-H298) /RT 

S/R 

-{ F-H01/RT 

-(F-H298) /RT 

H/RT 

-F/RT 

100 

3.5016367 

3.4963896 

—7 • 1 197225 

20.4782846 

16.9818952 

27.5980072 

-7.1197224 

27.5980072 

200 

3.5712715 

3.5097823 

-1.7982737 

22.9178321 

19.4080498 

24.7161057 

-1.7982737 

24.7161057 

298.15 

3.7674544 

3.560661 5 

0.0000000 

24.3783007 

20.8176394 

24.3783007 

0.0000001 

24.3783007 

300 

3.7714767 

3.5619491 

0.0232451 

24.4016178 

20.8396688 

24.3783727 

0.0232451 

24.3783727 

400 

3.9723299 

3.6402861 

0.9862581 

25.5150812 

21.8747952 

24.5288231 

0.9862581 

24.5288231 

500 

4.1255408 

3.7228256 

1.5996032 

26.41RB421 

22.6960166 

24.8192389 

1.5996032 

24.8192389 

600 

4.2362054 

3. 7996674 

2.0303153 

27.1813467 

23.3816793 

25.1510313 

2.0303153 

25.1510313 

700 

4.3168867 

3.8680834 

2.3514960 

27.8407331 

23.9726498 

25.4892371 

2.3514960 

25.4892371 

800 

4.3774085 

3. 9281369 

2.6011229 

78.4213059 

24.4931691 

25.8201830 

2.6011229 

25.8201B30 

900 

4.4243385 

3.9807662 

2.8011982 

28.9397089 

24.9589429 

26.1385107 

2.801198? 

26.1385107 

1000 

4.4619371 

4.0270678 

2.9654565 

29.4078734 

25.3008057 

2 6.4424169 

2.9654566 

26.4424169 

1100 

4.4929844 

4.0680542 

3.1029531 

29.8346412 

25.7665870 

26.7316880 

3.1029531 

26.7316880 

1200 

4.5193276 

4.1045904 

3.2199144 

30.2267406 

26.1221502 

27.0068262 

3, 21991 44 

27.0068262 

1300 

4.5422208 

4.1373928 

3.3207687 

30.5894034 

26.4520106 

27.2686346 

3.3207687 

27.2686346 

1400 

4.5625337 

4.1670478 

3.4087541 

30.9267755 

26.7597277 

27.5180213 

3.4087541 

27.5180213 

1500 

4.5808824 

4. 1940346 

3.4862938 

31.2421932 

27.0481586 

27.7558994 

3.4862938 

27.7558994 

1600 

4.5977121 

4.2187455 

3.5552385 

31.5383811 

27.3196356 

27.9831426 

3.5552385 

27.9831426 

1700 

4.6133497 

4. 241 5028 

3.6170256 

31.8175902 

27.5760875 

28.2005646 

3.6170256 

20.2005646 

1800 

4.6280400 

4.2625729 

3.6727889 

32.0817013 

27.8191288 

28.4089127 

3.6727889 

28.4089127 

1900 

4.6419680 

4.2821776 

3.7234348 

32.3323030 

28.0501258 

28.6080684 

3.7234348 

28.6088684 

2000 

4.6552764 

4.3005022 

3.7696966 

32.5707455 

28.2702436 

28.8010492 

3.7696966 

28.8010492 

2100 

4.6680759 

4.3177027 

3.8121735 

.32. 7901887 

28.4804864 

28.9860153 

3.8121735 

20.9860153 

2200 

4.6004542 

4.3339116 

3.8513610 

33.0156350 

2 8.6817236 

29.1642740 

3. 8513610 

29.1642740 

2300 

4.6924804 

4.3492413 

3.6876711 

33.2239561 

28.8747149 

29.3362849 

3.8876711 

29.3362849 

2400 

4.7042105 

4.3637882 

3.9214502 

33.4239154 

29.0601273 

29.5024652 

3.9214502 

29.5024652 

2500 

4.7156897 

4.3776355 

3.9529910 

33.6161838 

29.2385483 

29.6631927 

3. 9579910 

29.6631927 

2600 

4.7269547 

4.3908548 

3.9825428 

33.8013563 

29.4105020 

29.8188138 

3.9825428 

29.8188138 

2700 

4.7380363 

4.4035087 

4.0103194 

33.9799619 

29.5764532 

29.9696424 

4.0103194 

29.9696424 

2800 

4.7489594 

4.4156516 

4.0365047 

34.1524711 

29.7368197 

30.1159666 

4.0365047 

30.1159666 

2900 

4.7597451 

4.4273313 

4.0612585 

34.3193064 

29.8919754 

30.2580481 

4.0612585 

30.2580481 

3000 

4.77041 l 1 

4.4385898 

4.0847194 

34.4808493 

30.0422597 

30.3961301 

4.0847194 

30.3961301 

3100 

4.7809725 

4.4494644 

4.1070091 

34.6374431 

30.1879707 

30.5304339 

4.1070091 

30.5304339 

3200 

4.7914417 

4.4599878 

4.1282343 

34.7893977 

30.3294101 

30.6611636 

4.1282343 

30.6611636 

3300 

4.8018298 

4.4701895 

4.1484891 

34.9369979 

30.4668088 

30.7885091 

4.1484891 

30.7885091 

3400 

4.8121458 

4.4800954 

4.1678568 

35.0805006 

30.6004052 

30.9126437 

4.1678568 

30.9126437 

3500 

4.8223977 

4.4897292 

4.1864116 

35.2201405 

30.7304115 

31.0337288 

4.1064117 

31.0337288 

3600 

4.8325928 

4.4991117 

4.2042197 

35.3561349 

30.8570232 

31.1519151 

4.2042197 

31.1519151 

3700 

4.8427367 

4.5082619 

4.2213399 

35.4886808 

30.9804192 

31.2673409 

4.2213399 

31.2673409 

3000 

4.8523348 

4.5171968 

4.2378255 

35.6179628 

31.1007662 

31. 3801374 

4.2378255 

31.3801374 

3900 

4.8628918 

4.5259320 

4.2537239 

35.7441478 

31.2182159 

31.4904239 

4.2537239 

31.4904239 

4000 

4.8729115 

4.5344812 

4.2690784 

35.8673916 

31.3329105 

31.5983133 

4.2690784 

31.5983133 

4100 

4.8828976 

4. 5428575 

4.2839279 

35.9878392 

31.4449821 

31.7039115 

4.2839279 

31.7039115 

4200 

4.8928531 

4.5510722 

4.2983077 

36.1056252 

31.5545530 

31.8073175 

4.2903077 

31.8073175 

4300 

4.9027809 

4.5591362 

4.3122498 

36.2208724 

31.6617365 

31.9086227 

4.3122498 

31.9086227 

4400 

4.9126835 

4.5670589 

4.3257836 

36.3336983 

31.7666397 

32.0079145 

4.3257836 

32.0079145 

4500 

4.9225630 

4.5748492 

4.3389356 

36,4442115 

31.8693624 

32.1052756 

4.3389356 

32.1052756 

4600 

4.9324214 

4.5825154 

4.3517303 

36.5525117 

31.9699965 

32,2007813 

4.3517303 

32.2007813 

4700 

4.9422605 

4.5900649 

4.3641901 

36.6586943 

32.0686297 

32.2945042 

4.3641901 

32.2945042 

4800 

4.9520819 

4.5975047 

4.3763356 

36.7628493 

32.1653447 

32.3065137 

4.3763356 

32.3865137 

4900 

4.9618869 

4.6048410 

4.3881856 

36.8650584 

32.2602177 

32.4768729 

4.3081056 

32.4768729 

5000 

4.9716768 

4. 6120798 

4.3997575 

36.9654007 

32.3533211 

32.5656433 

4.3997575 

32.5656433 

5100 

4.9814530 

4.6192266 

4.4110675 

37.0639491 

32.4447227 

32.6528816 

4.4110675 

32.6528816 

5200 

4.9912161 

4.6262864 

4.4221303 

37.1607738 

32.5344877 

32.7386436 

4.4221303 

32.7386436 

5300 

5.0009676 

4.6332639 

4.4329599 

37.2559404 

32.6226768 

32.8229804 

4.4329599 

32.8229804 

5400 

5.0107030 

4. 6401635 

4.4435688 

37.3495102 

32.7093468 

32.9059410 

4.4435688 

32.9059410 

5500 

5.0204380 

4.6469890 

4.4539688 

37.4415412 

32.7945523 

32.9875722 

4.4539680 

32.987572? 

5600 

5.0301589 

4. 6537446 

4.4641712 

37.5320892 

32.8783450 

33.0679183 

4.4641712 

33.0679183 

5700 

5.0398707 

4.6604336 

4.4741860 

37.6212068 

32.9607735 

33.1470208 

4.4741860 

33. 1470208 

5800 

5.0495740 

4.6670592 

4.4840228 

37.7089429 

33.0418839 

33.2249203 

4.4840228 

33.2249203 

5900 

5.0592700 

4.6736248 

4.4936906 

37.7953453 

33.1217208 

33.3016548 

4.4936906 

33.3016548 

6000 

5.0689586 

4.6801329 

4.5031976 

37.8804584 

33.2003255 

33.3772607 

4.5031976 

33.3772607 


F2C G I F2 (G & 
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HZERO 


-2109.698 


T 

CP 

H-HO 

H-H298 

S 

100 

6.9586626 

694.8235 

-1414.8740 

40.695675 

200 

7.0970451 

1394. 9700 

-714. 7275 

45.543691 

298.1 5 

7.4869113 

21 09.6975 

0.0000 

48.446022 

300 

7.4949048 

2123.5557 

13.3582 

48.492359 

400 

7.8940524 

2893.6779 

783.9805 

50.705100 

500 

0.1985221 

3699.1112 

1589.4137 

57.501108 

600 

8.4L84415 

4530.5561 

2420.8586 

54.016403 

700 

8.5 707762 

5380. 821 1 

3271.1236 

55.326775 

BOO 

8.6990488 

6244.9834 

4135.2059 

56.480524 

900 

0.7923110 

7119.7356 

5010.0381 

57.510725 

1000 

0.8670291 

8002. 8307 

5893.1331 

58.441090 

noo 

8.9287201 

8892. 7095 

6783.0119 

59.289189 

1200 

0.9010790 

9788.2659 

7678.5684 

60.068392 

1300 

9.0265737 

10688.6975 

8579.0001 

60.789097 

1400 

9.0669407 

11593.4102 

9483. 71?6 

61. 459544 

1500 

9.1034043 

12501.9558 

10392.2583 

6? .086360 

1600 

9.1368493 

13413. 9907 

11304.2932 

62.674963 

1700 

9.1679254 

14329.2469 

12219.5494 

63.229824 

1800 

9.1971188 

15247.5132 

13137.8157 

63.754682 

1900 

9.2247971 

16168. 6? 02 

14058.9226 

64.252692 

2000 

9.2512444 

17092.4316 

14982.7343 

64.726539 

210C 

9.2766805 

18018.8352 

15909.1378 

65.178528 

2200 

9.3012793 

18947. 7400 

16838.0425 

65.610650 

?300 

9.3251786 

19879.0679 

17769.3704 

66.024630 

2400 

9.3484893 

20812.7559 

18703.0583 

66.422009 

2500 

9.3713015 

21748.7495 

19639.0518 

66.804097 

2600 

9.3936880 

22687.0020 

20577.3044 

67.172083 

2700 

9.4157100 

23627.4751 

21517.7773 

67.527019 

2800 

9.4374169 

24570.1335 

22460.4360 

67.869839 

2900 

9.4580509 

2 5514.9492 

23405.2517 

68.201385 

3000 

9.4800470 

26461.8958 

24352. 1980 

60.522412 

3100 

9.5010355 

27410. 951 9 

?530 l • 2542 

60.833605 

3200 

9.5? 18403 

28362.0972 

26252.3994 

69.135578 

3300 

9.542484 2 

29315.3142 

27205.6167 

69.428898 

3400 

9.5629847 

30270. 5889 

28160.8911 

69.714075 

3500 

9.5833580 

31227.9070 

29118.2090 

69.991576 

3600 

9.6036183 

32187.2568 

30077.5593 

70.261832 

3700 

9.6237769 

33148.6274 

31038.9297 

70.525235 

3800 

9.6438445 

34112.0088 

32002.3115 

70.782152 

3900 

9.6638303 

35077.3936 

32967.6958 

71.032914 

4000 

9.6837419 

36044.7725 

33935.0742 

71.277832 

4100 

9.7035869 

37014.1396 

34904.4419 

71.517193 

4200 

9.7233711 

37985.4873 

35875. 7900 

71. 751265 

4300 

9.7431003 

38958.8115 

36849. 1138 

71.980290 

4400 

9.7627795 

39934.1064 

37824.4087 

72.204505 

4500 

9.7024125 

40911.3662 

38801.6685 

72.424123 

4600 

9.8020037 

41890.5874 

39780.8096 

72.639344 

4700 

9.3215566 

42871. 7656 

40762.0674 

72.850356 

4800 

9.8410742 

43854. 8975 

41745. 1997 

73.057340 

4900 

9.8605593 

44839.9795 

42730.2817 

73.260455 

5000 

9.8800143 

45827.0078 

43717.3101 

73.459862 

5100 

9.8994422 

46815.9814 

44706.2837 

73.655703 

5200 

9.9188441 

47806.8955 

45697.1978 

73.848119 

5300 

9.9382229 

48799. 7490 

46690.0513 

74.037240 

5400 

9.9575796 

49794.5405 

47684.8428 

74.223187 

5500 

9.9769156 

50791.2646 

48681.5669 

74.406076 

5600 

9.9962335 

51789. 9224 

49600.2246 

74.586020 

5700 

10.0155333 

52790.5112 

50680.8135 

74.763119 

5800 

10.0348164 

53793.0283 

51683.3306 

74.937473 

5900 

10.0540849 

54797.4741 

52687.7764 

75.109178 

6000 

10.0733386 

55803.8447 

53694. 1465 

75.278319 


-(F-HO) -(F-H298) H -F 

3374.7441 5484.4415 -1414.0739 5484.4415 

7713.7602 9023.4656 -714.7275 9R23.4655 

12334.4840 14444.1814 0. 0001 14444.1814 

12424.1519 14533.8492 13.0582 14533.0492 

17388.3621 19498.0596 703.9005 19498.0596 

22551.4426 24661.1401 1589.4137 24661.1401 

27879.2852 29980.9827 2420.8586 29988.9827 

33347.9209 35457.6182 3271.1237 35457.6182 

38939.4360 41049.1333 4135.2069 41049.1333 

44639.9175 46749.6147 5010.0381 46749.6147 

50438.2598 52547.9570 5893.1332 52547.9570 

56325.3979 58435.0952 6783.0120 58435.0952 

62293.8042 64403.5015 7670.5684 64403.5015 

68337.1289 70446.8262 8579.0001 70446.8262 

74449.9502 76559.6475 9483.7128 76559.6475 

80627.5850 82737.2822 10392.2583 82737.2822 

86865.9502 80975.6475 11304.2932 88975.6475 

93161.4531 95271.1504 12219.5496 95271.1504 

99510.9150 101620.6113 13137.8157 101620.6113 

105911.4961 108021.1924 14058.9226 108021.1924 

112360.6484 114470.3457 14982.7343 114470.3457 

118856.0742 120965.7715 15909.1378 120965.7715 

125395.6914 127505.3087 16838.0425 127505.3887 

131977.5977 134087.2949 17769.3704 134087.2949 

138600.0664 140709.7637 18703.0583 140709.7637 

145261.4922 147371.1895 19639.0518 14.7371.1895 

151960.4160 154070.1113 20577.3044 154070.1113 

158695.4746 160805.1719 21517.7773 160805.1719 

165465.4160 167575.1133 22460.4360 167575.1133 

172269.0664 174378.7617 23405.2517 1 74378.7617 

179105.3418 181215.0391 24352.1900 181215.0391 

185973.2227 188082.9199 25301.2542 108082.9199 

192871.7539 194981.4512 26252.3994 194981.451? 

199800.0508 201909.7480 27205.6167 201909.7480 

206757.2656 208866.9629 28160.0911 208866.9629 

21374?. 6094 215852.3066 29118.2095 215852.3066 

220755.3398 222865.0352 30077.5593 222865.0352 

227794.7441 229904.4395 31038.9297 229904.4395 

234860.1699 236969.8672 32002.3115 236969.867? 

241950.9746 244060.6719 32967.6958 244060.6719 

249066.5566 251176.2559 33935.0742 251176.2554 

256206.3535 258316.0508 34904.4419 258316.0508 

263369.8203 265479.5156 35875.7900 265479.5156 

270556.4336 272666.1328 36849.1138 272666.1328 

277765.7148 279875.4102 37824.4087 279875..410? 

284997.1875 287106.8789 38801.6685 287106.8789 

292250.3906 294360.0859 39780.8896 294360.0859 

299524.910 2 301634.6055 40762.0674 301634.6055 

306820.3281 308930.0273 41745.1997 308930.0273 

314136.2539 316?45.9492 42730.2817 316245.9492 

321472.3008 323581.9961 43717.3101 323581.9961 

320828.1016 330937.7969 44706.2837 330937.7969 

336203.3242 338313.0195 45697.1978 338313.0195 

343597.6211 345707.3125 46690.0513 345707.3125 

351010.6719 353120.3633 47684.8478 353120.3633 

358442.1563 360551.8516 48681.5669 360551.8516 

365891.7852 368001.4805 49680.2246 368001.4805 

373359.2695 375468.9640 50680.8135 375468.9648 

380844.3164 382954.0156 51683.3306 382954.0156 

308346.6758 390456.3711 52687.7764 390456.3711 

395066.0703 397975.7656 53694.1465 397975.7656 


F2( G ) 


F2<3) 
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Example 3 (F(g) with LOGK Option) 


Problem . - In addition to calculating thermodynamic functions, calculate the heat of 
formation and equilibrium constant values for F(g) from Fg(g) for the temperatures, 
298. 15°, 1000°, 2156°, 3000°, and 5000° K. Use the enthalpy and free energy values 
for Fg calculated in example 2 (i. e. , the EFDATA and binary EF data cards for Fg). 
For F(g), use the following data: 

(1) Physical constants and atomic weight: same as example 1 

(2) Heat of formation: AH^ggg 15 ) = 18 858. 2 calories per mole 

(3) Spectroscopic data: = 3/2, e^=0 and Jg = 1/2, eg /he = 404. 1 centimeter”* 

Punched card input. - The punched card input is as follows: 


Card 
col- 
umns 
1 to 6 

Label 

1 

Numerical 
value 1 

Label 

2 

Numerical 
value 2 

Label 

3 

Numerical 
value 3 

Label 

4 

Numerical 
value 4 

Card 
col- 
umns 
79 to 
80 

CONSTS 

ATOM 

EFDATA 

F 

s 2 < G ) 

19. 

0 . 

HCK 

F2<G) 

HZER0 

1.4388 

-2109.6975 

R 

“IELTPT 

1.98726 

0 . 

SCONST 
T NO. 

-3.66511 

61.0000 

30 

01 

02 

03 

04 

05 

06 

07 

08 

Binary EF data for F 2 (g) 

j 

BCDUMO 

BCDUM0 

BCDUMO 

BCDUMO 

BCDUMO 

BCDUMO 

BCDUMO 

BCDUMO 

BCDUMO 

Fl(G) 

LOGK 

TEMP 

TEMP 

METHOD 

DATA 

FINISH 

T 

T 

ALLN 

1.5 

298.15 

5000. 

0 . 

HF298 

T 

.5 

18858.2 

1000. 

404.1 

T 

2156. 

T 

3000. 


Listed output. - The listed output is as follows: 


CONSTS 



HCK 

1 • 4388000 

R 

i. 9872600 

S" ON ST 

-3.6651100 

ATOM 

F 

19. 

F2 (G) 






FFDATA 

F2 ( G I 


HZERO 

-2109.69751 

MELTPT 


T NO. 

61. 

FUG) 



HF 298 

18858.200 





LOGK 









TEMP 

T 

298. 15000 

T 

1000. 

T 

2156. 

T 

3000. 

TEMP 

T 

5000. 







METHOD 

ALLN 








DATA 

1.5 


.5 

404.10000 






FINISH 

F1IG) FUGI 

H2ER0 = 17300.217 
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T 

CP/R 

1H-H01/RT 

1H-H298>/RT 

S/R 

-IF-H0>/RT 

-IF-H29B) /RT 

H/RT 

-F/RT 

298.15 

2.7357659 

2.6294998 

0.0000000 

19.0800488 

16.4505491 

19.0800488 

31.8281004 

-12.7480516 

1000 

2.5577199 

2.6270264 

1.8430411 

22.2 807670 

19.6537406 

20.4377258 

11. 3325893 

10. 948177B 

2156 

2.5145423 

2. 5745148 

2.2108852 

24.2257791 

21.6512644 

22.0148938 

6.6123454 

17.6134338 

3000 

2.5077611 

2. 5565408 

2.2952124 

25.0552444 

22.4987037 

22.7600319 

5.4583 951 

19.5968494 

5000 

2. 5028820 

2.5358168 

2.3790197 

26.3348284 

23.7990117 

23.9558086 

4.2769293 

22.0578990 

HZERO * 17300 

U217 








T 

CP 

H-H0 

H— H298 

S 

-< F-H0) 

- < F-H298 1 

H 

-F 

298.15 

5.4366781 

1557.9827 

0.0000 

37.917017 

9746.9762 

11304.9589 

18858.1995 

-7553.2406 

1000 

5.0828543 

5220.5845 

3662.6018 

44.277677 

39057.0923 

40615.0747 

2 2520.8013 

21755.8757 

2156 

4.9970493 

11030.5924 

9472.6096 

40.142921 

92765.5459 

94323.5283 

28330. 8088 

75465.3301 

3000 

4.9835732 

15241.5339 

13683.5511 

49.791285 

134132.3203 

135690.3008 

32541.7505 

116832. 1035 

5000 

4.9738773 

25196.6357 

23638.6528 

52.334151 

236474.1172 

238032.0996 

42496.8521 

219173.8984 


FKGl 


fug) 


HZERO = 17300.217 


T 

298. 15 
1000 

CP/R 

2.7358 

2*5577 

IH-HOI/RT 

2.6295 

2.6270 

S/R - 1 F— HO I /RT H/RT -F/RT 

19.0800 16.4505 31.8281 -12.7481 

22.2808 19.6537 11.3326 10.9482 

REFERENCE 
DELTA H/RT 
31.8281 
9.8499 

ELEMENTS 
-DELTA F/RT 
-24.9372 
-2.2730 

GASEOUS ATOMS 
DELTA H/RT -DELTA F/RT 
0 0 

0 0 

2156 

3000 

2.5145 

2.5078 

2.5745 

2.5565 

24.2258 21.6513 6.6123 17.6134 

25.0552 22.4987 5.4584 19.5968 

4.6951 

3.4160 

3.0701 

4.3988 

0 0 
0 0 

5000 

2.5029 

2.5358 

26.3348 23.7990 4.2769 22.0579 

2.0771 

5.7751 

0 0 

T 

Q 

CP 

H-HO 

S -(F-HO) H 

^ n i y 

REFERENCE 
DELTA H 

ELEMENTS 
LOG K 

gaseous atoms 

DELTA H LOG K 

298.15 

1000 

5.4367 

5.0829 

1558.0 

5220.6 

u If 3UU * c 

37.9170 9747.0 18858.2 

44.2777 39057.1 22520.8 

18858.2 -10.8301 

19574.2 -0.9872 

0 0 
0 0 

2 156 
3000 

4.9970 

4.9836 

11030.6 

15241.5 

48.1429 92765.5 28330.8 

49.7913 L 341 32. 3 32541 .8 

20116.3 

20365.7 

1.3333 

l.9t04 

0 0 
0 0 

5000 

4.9739 

25196.6 

52.3342 236474.1 42496.9 

20638.2 

2.5081 

0 0 


FKGl 


FK5) 


Example 4 (P(s) with Least -Squares Fit) 


Problem. - Use the data for P(solid) given in reference 3 to calculate the least- 
squares coefficients and punch them on cards as required for use with the program 
described in reference 33. Use functional form given in equations (10) to (12) with 
q^ = 1, 2, 3, 4, and 5. The data are normally fitted in two temperature intervals, 300° 
to 1000° K and 1000° to 5000° K. However, since P(solid) melts at 317. 3° K, there 
will be only one set of coefficients for this case. 

Punched card input. - The punched card input is as follows: 


Card 

Label 

Numerical 

Label 

Numerical 

Label 

Numerical 

Label 

Numerical 

col- 

1 

value 1 

2 

value 2 

3 

value 3 

4 

value 4 

nmnfl 









1 to 6 









CONSTS 



R 

1.98726 





PUS) 



HF298 

0 . 





LSTSQS 









METHOD 

*EADIN 


MELTPT 

317.3 





DATA 

T 

298.15 

CP 

5.694 

H-HO 

1282.3 

S 

9.981 

DATA 

T 

300. 

CP 

5.705 

H-HO 

1292.8 

S 

10.016 

DATA 

T 

317.3 

CP 

5.798 

H-HO 

1392.3 

S 

10.338 

FINISH 
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Listed output. - The listed output is as follows: 


CONSTS R 1.9872600 

Pl(S) HF298 

ATOM CARD HISSING OR FORMULA I NCORRECT,. C 160 
LSTSQS 


METHOD 

R6ADIN 


MFLTPT 

317.30000 





DATA 

T 

298. 15000 

CP 

5.6940000 

H-HO 

1282.30000 

S 

9.9809999 

DATA 

T 

300. 

CP 

5.7050000 

H-HO 

1292-80000 

s 

10. 0160000 

DATA 

T 

317.30000 

CP 

5.7980000 

H-HO 

1392.30000 

S 

10.3380001 


FINISH 


LEAST SQUARES 


T 


CP/R 

INPUT CP/R 

CALC 


HH/RT input 

HH/RT CALC 


S/R INPUT 

S/R CALC 


-FH/RT INPUT 

-FH/RT CALC 



INPJT 

-CALC FRACTION 


INPUT-CALC 

FRACTION 


INPUT-CALC 

FRACTION 


INPUT-CALC 

FRACTI ON 

300. 

00 

2.8707869 2.8707715 


2.1684799 

2.1684747 


5.0401055 

5.0398B30 


2.8716256 

2.8714083 



0.0000154 0. Q000053 


0.0000052 

0.0000024 


0.0002225 

0.0000441 


0.0002173 

0.0000757 

317. 

30 

2.9175850 2.9175850 


2.2080457 

2.2080456 


5.2021376 

5.2021372 


2.9940919 

2.9940915 



0. 


0. 



0.0000001 

0.0000000 


0.0000005 

0.0000001 


0.0000004 

0.0000001 

MAX-REL 

ERR 

CP/R 

= 

0.000005 

TEMP 

= 

300. 

AVER REL ERR 

CP/R 

= 0. 000003 

REL L ST 

SQ 

ERR CP/R = 

0.000004 

MAX REL 

ERR 

HH/RT 


0.000002 

TE MP 

= 

300. 

AVER REL ERR 

HH/RT 

= 0.000001 

REL L ST 

SO 

FRR HH/RT = 

0.000002 

MAX REL 

ERR 

S/R 

= 

0.000044 

TEMP 


300. 

AVER REL ERR 

S/R 

= 0.000022 

REL L ST 

SQ 

FRR S/R 

0.000031 

MAX REL 

ERR 

FH/RT 

= 

0.000076 

TEMP 

= 

300. 

AVER REL ERR 

FH/RT 

= 0.000038 

rfl LST 

SQ 

ERR FH/RT = 

0.000054 

MAX 

ERR 

CP/R 

- 

0.000015 

TEMP. 

= 

300. 

AVER ERR 

CP/R 

= 0.000008 

L ST 

SQ 

ERR CP/R = 

0.000011 

MAX 

ERR 

HH/RT 

= 

0.000005 

TEMP 

= 

300. 

AVER ERR 

HH/RT 

= 0.000003 

LST 

SQ 

ERR HH/RT = 

0.000004 

MAX 

ERR 

S/R 

- 

0.000223 

TEMP 

= 

300. 

AVER ERR 

S/R 

= 0.000111 

LST 

SQ 

FRR S/R 

0.000157 

MAX 

ERR 

FH/RT 

- 

0.000217 

TF MP 

= 

300. 

AVER ERR 

FH/RT 

= 0.000109 

LST 

SQ 

ERR FH/RT = 

0.000154 

CP/R = 

2.78773846 OOT** 0. 

2.1253577E-03T** 1.0 

-3.54596526- 

-07T *♦ 

2.0 5. 5 2 71664 F- 08 T** 3. 

0 

-9.1330942F-: 

LIT** 4.0 


(H-HOJ/R CONSTANT = -0.15448489E 03, H/RIA6) CONSTANT =-0.79974519E 03, S/ft CONSTANT =-0. 105 1 9705E 02 
PUNCHED BINARY CAROS— 


P1IS) 

0* 

0.10000000E 04 

PllS) 

0. 

0. 


0. 

0. 

0.27877383E 01 

0 . 

0. 

0. 


0.30000000E 03 

0 . 

-0.21253577E-02 

-0.105197056 02 

0. 

0. 


0.31730000E 03 

0. 

-0.3545 9652 E-06 

0. 

0. 

0. 


0. 10000000E 04 

0. 

0. 5 527 1665 E -07 

0. 

0. 

0. 


0 . 50000000F 04 

0. 

—0.91 330943E-1 0 

0. 

0. 

0. 


0. 

0.30000000E 03 
-0.7997451 9E 03 

0 . 

0. 

000000 


P1(S) 

HZERO * -1282.300 


T 

CP/R 

IH-HOl/RT 

(H-H298) /RT 

S/R 

—l F— HO ) /RT 

-I F-H298) /RT 

H/RT 

-F/RT 

298.15 

2.8652516 

2. 1642137 

0.0000000 

5.0224932 

2.8582796 

5.0224932 

0.0000000 

5.0224932 

300 

2.8707869 

2. 1684799 

0.0176122 

5. 040 1055 

2.8716256 

5.022493? 

0.0176122 

5.022493? 

317.30 

2.9175850 

2.2080457 

0.17A4<t88 

5.2021376 

2.9940919 

5.02768RB 

0. 1744488 

5.0276888 


HZERO = -1282.300 








T CP 

H-HO 

H-H298 

s 

-(F-HO) 

-IF-H298) 

H 

-F 

298.15 5.6939999 
300 5.7049999 
317.30 5.7979999 

1282.3000 
1292. 8000 

1392.3000 

0.0000 

10.5000 

110.0000 

9.981000 

10.016000 

10.338000 

1693.5351 

1712.0000 

1887.9474 

2975.8351 

2994.2999 

3170.2473 

0.0000 

10.5000 

110.0000 

2975.8351 

2994.2999 

3170.2473 


PUS) 


PUS) 


Punched Card Input for Examples 1 to 4 Combined 


Examples 1 to 4 may be all run in a single machine pass as well as individually. 

In this case, however, the general data may be combined. Thus the punched card input 
is as follows: 


96 



Card 

Label 

Numerical 

Label 

Numerical 

Label 

Numerical 

Label 

Numerical 

col- 

1 

value 1 

2 

value 2 

3 

value 3 

4 

value 4 

umns 









1 to 6 









CONSTS 



HCK 

1.4388 

R 

1.98726 

SCONST 

-3.66511 

ATOM 

F 

19.0000 

F2tG) 






ATOM 

MG 

24.3200 

MGl(S) 






MG 1F2 ( 

G) 








TEMP 

T 

100. 

I 

100. 

T 

500. 



METHOD 

1RHO 








DATA 

STATWT 

1. 

VI 

540. 

V2(2> 

500. 

V3 

820. 

DATA 

IB 

19.77 

SYMNO 

2. 





FINISH 









F2 ( G ) 



HF298 

0. 





EFTAPE 









METHOD 

PANDK 








DATA 

STATWT 

1. 

ME 

923. 

WEXE 

15.6 

BE 

.8909 

DATA 

ALPHAE 

.0162 

SYMNO 

2. 





FINISH 









FKG) 



HF298 

18858.2 





LOGK 









TEMP 

T 

298.15 

T 

1000. 

T 

2156. 

r 

3000. 

TEMP 

T 

5000. 







METHOD 

ALLN 








DATA 

1.5 

0. 

.5 

404.1 





FINISH 









P1(S) 



HF298 

0. 





LSTSQS 









METHOD 

READIN 


MELTPT 

317.3 





DATA 

T 

298.15 

CP 

5.694 

H-HO 

1282.3 

S 

9.981 

DATA 

T 

300. 

CP 

5.705 

H-HO 

1292.8 

s 

10.016 

DATA 

T 

317.3 

CP 

5.798 

H-HO 

1392.3 

s 

10.338 

FINISH 



r 







Example 5 (Ar(g), H 2 0(g), Mg(g), Mg(s,X), and MgO(g)) 

Descr iptio n o f problems . - This example is a combination of several problems. The 
input includes a more complete set of general input data and specific data for five species, 
Ar(g), H 2 0(g), Mg(g), Mg(s,f), and MgO(g). 

The general data include ATOM cards for the first 20 elements. For simplicity, 
however, only five sets of EFDATA and binary EF data were included for three assigned 
reference elements and two monatomic gases, namely, Mg(s, £), H 2 (g), 0 2 (g), H(g), 
and O(g). A LISTEF card is inserted before the 0 2 EFDATA, and so the data on the 
binary EF data cards for 0 2 will be listed in the output. 

The specific input data cards are for solving the following problems: 

(1) Ar(g) - Calculate thermodynamic functions from the following empirical equa- 
tions (method COEF): C°/R = 2. 5, (H^ - H°)/RT = 2. 5, and S° /R = 2. 5 In T + 

4. 3661076. Punch these coefficients for use with reference 33. Assume H 2 gg jg = 

AH f(298. 15) = °* 

(2) H 2 <D(g) - Calculate the thermodynamic functions for T = 5000° K using the 
NRRA02 method. List intermediate results. Use Hq = 57 103. 5 calories per mole. 

(3) Mg(g) - Perform the following options in the calculations: 

(a) Calculate the thermodynamic functions using the lowered ionization potential 
cutoff technique (method TEMPER). 
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(b) Include unobserved but predicted electronic levels (FILL option). 

(c) Include option for punching EFDATA and binary EF data cards and putting 
data on tape (EFTAPE card). 

(d) Do a least -squares fit of the functions from 1000° to 5000° K assuming the 

_ n q 

following Cp equation: a^ + agT + a^T + a^T . Constrain the curve fit to fit the func- 
tions exactly at 1000° K. 

(e) Include DATE cards so 4/63 will be punched on coefficient cards. 

(4) Mg(s, f ) - Perform the following options in the calculations: 

(a) Calculate AH^ and log K, and tabulate the values with the thermodynamic 
functions (LOGK card). 

(b) Read in data directly for the solid. (Note that DATA cards have several 
examples of various possible labels as given in table Vin. 

(c) Assume C° = 8 calories per mole per °K for the liquid. 

(d) Calculate the integration constants (eqs. (11) and (12)) using a heat of melt- 
ing value of 2140 calories at the melting point, 923° K. 

(5) MgO(g) - Calculate thermodynamic functions using PANDK method and including 
two excited electronic states. (Note that columns 79 to 80 identify to which of the three 
states the data belong). Calculate and list tables which include AH^ and log K values. 
Use a disssociation energy of 90 kilocalories per mole at 0° K. 

Punched card input. - The punched card input is as follows: 


Card 

Label 

Numerical 

Label 

Numerical 

Label 

Numerical 

Label 

Numerical 

Card 

col- 

1 

value 1 

2 

value 2 

3 

value 3 

4 

value 4 

col- 

umns 









nmrifi 

1 to 6 









79 to 










80 

CONSTS 

HCK 

1 * 4388 

R 

1.98726 

SCONST 

-3.66511 




ATOM 

AL 

26.9800 

ALl(S) 

2 


16 




ATOM 

AR 

39.9440 

AR1(G) 

12 


61 




ATOM 

B 

10.8200 

B1(S) 

z 


6 




ATOM 

BE 

9.013 

BEKS) 

4 


13 




ATOM 

C 

12.0110 

cits) 

12! 


15 




ATOM 

CA 

40.0800 

CAl(S) 

4 


61 




ATOM 

CL 

35.4570 

CL2(G> 

30 


156 




ATOM 

cs 

132.9100 

CSltS) 

2 


72 




ATOM 

E 

.000548613 

El(G) 

2 


2 




ATOM 

F 

19.0000 

F2<G) 

30 


6 




ATOM 

H 

1.008 

H2(G) 

2 


2 




ATOM 

HE 

4.003 

HEltG) 

4 


1 




ATOM 

K 

39.1000 

Kl(S) 

2 


32 




ATOM 

LI 

6.940 

LIKS) 

2 


8 




ATOM 

MG 

24.3200 

MGltS) 

4 


33 




ATOM 

N 

14.0080 

N2(G) 

30 


20 




ATOM 

NA 

22.9910 

NAltS) 

2 


18 




ATOM 

NE 

20.1830 

NEl(G) 

12 


1 




ATOM 

0 

16.0000 

02(G) 

40 


15 




ATOM 

IP 

30.9750 

PltS) 

30 


170 




ATOM 

s 

32.0660 

SltS) 

40 


215 




ATOM 

SI 

28.0900 

SIl(S) 

12 


75 




EFDATA 

MGl(S) 

0 . 

HZERO 

-1190.3000 

MELTPT 

923.0000 

T NO. 

28.0000 








BCDUMO 

00 







BCDUMO 

01 




Binary EF data for Mg(s) 


BCDUMO 

02 







|bcdumo| 

03 


98 



|eF0ATA^2(G) I 0. |hZER0 I — 2023* 800 o|mE|_TPt| 0. 


Binary EF data for H 2 (g) 


r a|-i 1 ( g ) 


LISTEFj 
EFDATAJ02 ( G ) 


0. IHZERO [ 50616. 4995MELTPT| -0. 


Binary EF data for H(g) 


EFDATa|o1(G)J 0. |HZER0 1 57949.1 504|mELTPt| 


Binary EF data for O(g) 


IHZERO —2074 


• 7 3 9 0^4 E 


JBCDUMO08 

61.0000 

BCDUM000 

BCOUMOOl 

BCDUM002 

BCDUM003 

BCDUM004 

BCDUM005 

BCDUM006 

BCDUM007 

BCDUM008 

61.0000 
BCDUMOOO 
BCDUM001 
BCDUM002 
BCDUM003 
BCOUMO 04 
BCOUMO 05 
BCDuMO 06 
BCDUM007 
BCDUM008 


Binary EF data for C> 2 (g) 


IBC0UM0P8 


99 



AR1<G 



ASINDE 


T 

298.15 




TEMP 

T 

298*15 

T 

1000. 

I 

1000. 

T 

6000. 


me moc 

)COEF 




REDUCE 


H298H( 

1481.254 


DATA 

T 

100. 

T 

6000. 






DATA 

D1 

2.5 

El 

0 

CH-HO 

0. 

CS 

4.3661076 


ARKG1 

tpunce 

30( 

;tpunce 

100C 

)TPUNCf* 

500< 




FINISE 










H201(G 

) 


AS INDf- 

-57103.5 

r 

0 . 




TEMP 

r 

5000. 








INTERF 










METHOC 



NRRA02 







DATA 

VI 

3656.65 

V2 

1594.78 

V3 

3755.79 

Xll 

-45.18 


DATA 

<12 

-15.14 

X33 

-44.62 

X13 

-165.48 

X22 

-17.04 


DATA 

Y 233 

-.81 

Y333 

-.45 

X23 

-19.99 




DATA 

Y 111 

.47 

Y112 

-.10 

Y113 

.68 

Y122 

-0.1 


DATA 

Y 123 

-1.72 

Y133 

1.17 

Y222 

-.60 

Y223 

1.55 


DATA 

AO 

27.848 

BO 

14.5064 

CO 

9.28285 

SYMNO 

2. 


DATA 

ALFAA1 

.750 

ALFAA2 

-2.941 

ALFAA3 

1.253 

ALFAB1 

.238 


DATA 

ALFAB2 

-.160 

ALFAB3 

.078 

ALFAC1 

.2018 

ALFAC2 

.1392 


DATA 

ALFAC3 

.1445 

RHO 

.0000213 

STATWT 

1. 




FINISH 










MG1 IG> 



DELTAH 

35.6 

KCAL 


T 

298.15 


EFTAPE 










LSTSQS 

r 

1000. 

T 

5000. 

T CONST 

1000. 

EXP 

0 . 


LSTSQS 

EXP 

1. 

EXP 

2. 

EXP 

3. 




DATE 

4/63 









METHOD 

TEMPER 


FILL 







DATA 

6 

0. 

0 

21850.368 

1 

21870.426 

2 

21911.140 

3 

DATA 

1 

35051.36 

2 

46403.14 

3 

47957.035 

2 

47957.018 

3 

DATA 

1 

41197.37 

0 

43503.34 

0 

47841.20 

1 

47844.44 

4 

DATA 

2 

47851.14 

1 

49346.71 

2 

53134.70 

7 

54192.43 

4 

DATA 

1 

47957.047 

0 

57812.72 

1 

57833.28 

2 

57873.89 

3 

DATA 

1 

51872.36 

0 

52556.37 

4 

54252.6 

1 

54699.4 

5 

DATA 

2 

54676.76 

3 


4 


3 

54676.66 

4 

DATA 

2 

55891.83 

0 

56187.03 

1.5 

57018.8 

2 

57020.1 

6 

DATA 

2 

56308.43 

7 

56968.31 

10 

57204.22 

3 

57204.22 

5 

DATA 

1 

57853.5 

0 

58009.46 

4 

58478.4 



7 

DATA 

1 

58023.27 

7 

58442.62 

10 

58575.54 

3 

58575.54 

6 

DATA 

1 

58962.49 

2 

59690.02 

7 

59880.3 

13.5 

59935.38 

8 

DATA 

2 

59041.09 

7 

59317.4 

10 

59400.77 

3 


7 

DATA 

1 

59648.2 

2 

60127.31 

7 

60263.0 

13.5 

60301.30 

9 

DATA 

1 

60103.5 

2 

60435.15 

7 

60534.5 

13.5 

60562.64 

10 

DATA 

1 

60420.2 

2 

60658.37 

7 

60734.0 

13.5 

60755.78 

11 

DATA 

1 

60649.2 

2 

60826.6 

7 

60884.8 

13.5 

60902.53 

12 

DATA 

1 

60820.9 

2 

60955.8 

7 

61002.2 

3 

61016.42 

13 

DATA 

1 


7 

61094.6 

3 

61106.98 

IP 

61669.14 

14 

FINISH 


1 60952.0 








MGKS) 



ASINDH 

0. 

T 

298.15 




LOGK 










METHOD 

1EADIN 


MELTPT 

923. 






DATA 

T 

100. 

CP 

3.753 

H-HO/T 

1.529 

S 

2.263 


DATA 

T 

200. 

CP 

5.418 

H-HO 

630.9 

S 

5.511 


DATA 

T 

298.15 

CP 

5.929 

H-HO 

1190.3 

s 

7.780 


DATA 

T 

300. 

CP 

5.937 

H-HO 

1201.3 

s 

7.817 


DATA 

T 

400. 

CP 

6.241 

H-HO 

1811.3 

s 

9.569 


DATA 

T 

500. 

CP 

6.493 

H-HO 

2447.7 

s 

10.989 


DATA 

T 

600. 

CP/R 

3.4047 

H-HORT 

2.608 

-FHORT 

3.5286 


DATA 

T 

700. 

CP 

7.084 

H-HO 

3802.0 

S/R 

6.6730 


DATA 

T 

800. 

CP 

7.426 

H-HO 

4527.3 

-FHO/T 

8.569875 


DATA 

T 

900. 

CP 

7.792 

H-HO 

5288.0 

S 

15.125 


DATA 

r 

923. 

CP 

7.880 

H-HO 

5468.2 

S 

15.322 


METHOD 

:oef 


DELTAH 

2140. 






DATA 

r 

923. 

T 

bOOO. 

:i 

oo 

• 

o 

El 

0 . 


FINISH 










MG101 ( 

u 


DISSOC 

90 

<CAL 





TEMP 

r 

298.15 

r 

1000. 

[ 

1000. 

r 

6000. 


REFNCE 

>PECTR 

23 

DISSOC 

319 






LOGK 










METHOD 

>ANDK 









DATA 


782.99 

rfEXE 

5.15 

JE 

.5713 

^LPHAl 

.0050 

1 

DATA 

)E 

1.21-06 

3ETA1 

.02-06 





1 

DATA 

5TATWT 

2. 

TO 

3503.28 i 

iE 

662.69 

rfEXE 

3.89 

2 

DATA 

JE 

.5029 i 

ALPHA1 

• 0046 C 

)E 

1.172-06 

JETA1 

-.05-06 

2 

DATA 

sTATWT 

1.0 

TO 

20003.57 i 

*E 

821.91 

4EXE 

4.74 

3 

DATA . 

JE 

.5791 i 

ALPHA1 

.0045 [ 

)E 

1.13-06 

JETA1 

.025-06 

3 

FINISH 
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Listed output 


The listed output is as follows: 


(-.OUSTS HCK 1.4388000 R 1.9872600 SCONST -3.6651100 


ATOM 

Al 

26.9800000 

AL1 C S > 

2. 

16. 

ATOM 

AR 

T9. 9439998 

ARl (Gl 

12. 

61 . 

ATOM 

R 

10. 8200001 

B1 C SI 

2. 

6. 

ATOM 

BF 

9.0130000 

BE1 (SI 

A. 

13. 

ATOM 

C 

12.01 1 0000 

Cl (SI 

12. 

15. 

ATOM 

CA 

AO. 0799999 

C A 1 (SI 

A. 

61 . 

atom 

Cl. 

35. 4569998 

CL2(GI 

30. 

156 . 

ATOM 

CS 

132.91000 

C5l ( S) 

2. 

72. 

ATOM 

F 

0.54861300F-03 

FI (G ) 

2. 

2. 

ATOM 

F 

19. 

F2(GI 

30. 

6. 

ATOM 

H 

1. 0080000 

H2(GI 

2. 

2. 

ATOM 

HF 

A. 0030000 

HE 1 (G) 

A. 

1. 

ATOM 

K 

39. 0999999 

Kl (SI 

2. 

32. 

ATOM 

1 I 

6. 9AOOOOO 

L I 1 (SI 

2. 

8. 

ATOM 

MG 

2A. 3199999 

MG1 (SI 

A. 

33. 

ATOM 

N 

1 A. 0080000 

N2 (G 1 

30. 

20. 

ATOM 

NA 

22. 9909999 

NA1 (SI 

2. 

18 . 

ATOM 

NF 

20. 1830001 

NF1 (G l 

12. 

1 . 

ATOM 

0 

16. 

02 (G) 

AO. 

15. 

ATOM 

P 

30. 97A9999 

PI (SI 

30. 

170. 

ATOM 

S 

32.0660000 

SI (SI 

AO. 

215. 

ATOM 

SI 

28. 0899999 

SI1 (SI 

12. 

75. 


FFDATA MG 1 ( S ) 


H ZERO -1190.30000 

MELTPT 

923. T NO. 

28. 

FFOATA H?(G1 


HZERO -2023.80000 

MELTPT 

T NO. 

61. 

EFOATA H1(G) 


HZERO 50616.500 

MELTPT 

T NO. 

61. 

EFOATA 01(G) 


HZERO 579A9.150 

MELTPT 

T NO. 

61. 

L 1ST FF 






FFOATA 0 ? ( G ) 


H7ER0 -207A. 73901 

MELTPT 

-» 

z 

o 

61. 

T 

H-HO/RT 

-(F-HOI/RT 

T 

H-HO/RT 

-(F-HOI/RT 

100 . non 

3. A8991 537 

17. 3A1 13860 

200.000 

3 • 49561 310 

19.76229215 

298.150 

3. 50165999 

21.15892196 

300.000 

3.50185835 

21.18053252 

AGO. 000 

3. 51979873 

22. 19011092 

500.000 

3.55167121 

22.97872639 

600.000 

3. 5931222 A 

23.62983251 

700.000 

3.63907662 

24.18713498 

800.000 

3. 68591 803 

2A. 67612839 

900.000 

3.73153207 

25.11291909 

1000.000 

3. 77A853 91 

25.508 3 AO 12 

1 100.000 

3.81 5A6095 

25.87004900 

1 200.000 

3.85329697 

26.20367932 

1300.000 

3.88850057 

26.51351452 

1A90.000 

3. 92130366 

26.80289793 

1500.000 

3.95197189 

27.07449675 

1600. OQO 

3. 98077118 

27. 330A80 58 

1700.000 

A. 00794911 

27.57263613 

1800.000 

A. 03372759 

27.802A5972 

1900.000 

A. 05829930 

28.02121544 

2000.000 

A. 08182836 

2 8 . 229981 A2 

2100.000 

A. 10AA5231 

28.42968559 

22PO.OOO 

A. 1 2628A72 

28.621 13166 

2300.000 

A. 14741892 

28.80502057 

2AOO.OOO 

A. 16793066 

28 . 98 1968 AO 

2500.000 

A. 18788111 

29. 15251803 

2600.900 

A. 20731 870 

29 • 31 71 A 988 

2700.000 

A. 22628319 

2 9.4762 9261 

2800.000 

A. 2 AA 805 OA 

29.63032866 

2900.000 

A. 26290929 

29.77960134 

3000.000 

A. 28061 569 

29.92AA2012 

3100.000 

A. 2979A002 

30.06506443 

3200.000 

A. 31A89A80 

30.20178723 

3300.000 

A • 33 1 A9058 

30.33481860 

3AOO.OOO 

A. 3A773 63 0 

30.A6A36810 

3500.000 

A. 36363965 

30.59062862 

3600.000 

A. 37920725 

30.71377516 

3700.000 

A. 394AA572 

30. 83396959 

3800.000 

A. A 0936 083 

30.95136023 

3900.000 

A. A2395830 

31.06608510 

AOOO.OOO 

A. A382A393 

31 . 17827082 

A 100. 000 

A.A52224A3 

31.28803492 

A200.000 

A. A659053 7 

31.395A8731 

4300.000 

4.4792931 1 

31.50073051 

AAO0.O00 

A. A9239A21 

31.60385752 

4500.000 

A. 50521505 

31.70495868 

A600.000 

A. 51776236 

31.80A116A9 

4700 .000 

A. 5 300A336 

31.90140796 

Afioo.oon 

A.5A206A61 

31. 996907A7 

A900.000 

A. 55383325 

32.09068251 

5000.000 

A. 56535631 

32.18279886 

5100.000 

A. 5766A078 

32.27331686 

5200.000 

A. 587693A5 

32.3622^420 

5300.000 

4.59852165 

32.44978428 

5AOO.OOO 

A. 60913157 

32. 53583956 

5500.000 

A. 61953032 

32.62050772 

5600.000 

A. 62972367 

32.70383739 

5700.000 

A. 63971 829 

32.78586960 

5800.000 

A.6A952016 

32.8666A820 

5900.000 

A. 65913516 

32.94621086 

6000.000 

A. 66856867 

33.02459717 
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ARKG) 


ASINDH 


T 


298.15000 


TFMP 

T 

298.15000 

T 


1000. 

I 

1000 . T 

6000. 

METHOD 

COEF 





REDUCE 

H298H0 

1481.25400 

DATA 

T 

100. 

T 


6000. 




OATA 

Cl 

?• 5000000 

El 



CH-HO 

cs 

4.3661076 

DATA 

TPUNCH 

300. 

TPUNCH 


1000. 

TPUNCH 

5000. 


FIN tSH 









PUNCHED 

BINARY CARDS- 








AR1( G) 


0. 

0.30000000E 

03 

0.50000000E 

04 0.10000000E 

04 C.50000000E 04 

0.25000000E 01 

0. 

0. 


0. 


0. 

—0 • 745 3 7499 E 

03 0.436610766 01 

C.30000000E 03 

0. 10000000F 04 0.- 

25000000E 01 

0. 


0. 

0. 

0. 

— 0. 74537499E 03 

ARK G) 


0. 

0.43661 076E 

01 

3 • 

0. 

0. 

0. 

0. 

0. 


0. 


0. 

0. 

0. 

0. 

0. 

0. 


0. 


0. 

0. 

0. 

000300 


ark r,i 


H7ERD - -1481.254 


T 

CP/R 

|H— HO) /RT 

IH-H298) /RT 

S/R 

-1 F-HOJ/RT 

- 1 F— H298 ) /R T 

H/RT 

-F/RT 

?98. 

15 2.5000000 

2. 5000000 

0.0000000 

18.6100993 

16.1100993 

18.6100991 

0.0000001 

18.6100991 

1000 

2.5000000 

2. 5000000 

1.7546250 

21.6354954 

19.1354954 

19.8808703 

1.7546250 

19.8838703 

2000 

?. 5 aoocno 

2. 5000000 

2.1273125 

2 3.3683634 

20.8683634 

21.2410507 

2.1273125 

21.2410507 

3000 

2.5000000 

2. 5000000 

2.2515416 

24.3820262 

21.8820262 

22.1304843 

2.2515416 

22.1304843 

4000 

2. 500,000 0 

2.5000000 

2.3136562 

25.1012313 

22.6012313 

22.7875750 

2.3136562 

22.7875750 

5000 

2 • 5000 000 

2. 5000000 

2.3509250 

25.6590903 

23.1590903 

23.3081651 

2. 3509250 

23.3081651 

6000 

2. 5000000 

2.5000000 

2.3757708 

26.1148942 

23.6148942 

23.7391231 

2.3757708 

23.7391231 

H7 ERD = 

-1481.254 








T 

CP 

H-HO 

H-H298 

S 

-1 F-HO) 

- ( F-H298 ) 

H 

-F 

298. 

15 4.9681500 

1481.2539 

0.0000 

36.983106 

9545.2592 

11026.5129 

0.0000 

11026.5129 

1000 

4.9681500 

4968. L500 

3486.8960 

42.995354 

38027.2041 

39508.4580 

3486.8961 

39508.4580 

2000 

4.9681500 

9936.2999 

8455.0459 

46.439013 

82941.7266 

84422.9805 

8455.0459 

84422.9805 

3000 

4.96R1 500 

14904.4498 

13423.1958 

48.453425 

130455.8252 

131937.0781 

13423.1958 

131937.0781 

4000 

4. 9681500 

19872. 5999 

18391.3459 

49.882673 

179658,0898 

181139.3438 

18391.3459 

181139.3438 

5000 

4.9681500 

24840.7498 

23359.4958 

50.991283 

230115.6660 

231596.9180 

23359.4958 

231596.9180 

6000 

4. 9681 500 

29808.8997 

28327.6455 

51.897084 

281573.6055 

283054.8555 

28327.6455 

283054.8555 


H20KG 

1 


ASINDH 

TEMP ^ 

T 

*5000. 


INTFRM 




METHOD 



NR R A 02 

MOLECULAR 

WT •= 18.01600 


DATA 

VI 

3656.64999 

V2 

DATA 

X 1 2 

-15.1400000 

X33 

OATA 

Y233 

-o. smooooo 

Y333 

DATA 

Y 1 1 1 

0. 47000000 

Y112 

DATA 

Y 1 ?3 

-1.7200000 

Y133 

DATA 

AO 

27. 8480000 

BO 

DATA 

ALFA A 1 

0.75000000 

ALFAA2 

DATA 

AL FAB 2 

-0.16000000 

ALFAB3 

DATA 

AL FAC 3 

0.14449999 

RHO 


-57103.500 T 


1594.78000 

V3 

3755.79001 

XU 

-44.6199999 

X 13 

-165.48000 

X22 

-0.45000000 

X 23 

-19.9900000 


-0.09999999 

Y113 

0.68000000 

Y 122 

1.1700000 

Y222 

-0.60000000 

Y223 

14.5064000 

CO 

9.2828500 

SYMNO 

-2.9410000 

ALFAA3 

1.2530000 

alfabi 

0.07799999 

ALFAC1 

0.20180000 

ALFAC2 

0.21300000 E-04 

STATWT 

1 . 



-45.1799998 

-17.0400000 

-0.09999999 

1.5500000 

2 . 

0.23800000 

0.13919999 


FIS I SH 
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AO 

= 27.848000 

30 = 

14.506400 00 

* 9. ; 

282850 RHO = 

0. 21300000 E-04 



A I 

= 0.0325387 

ALPHA 

A = 0.7500000 

ALPHA 

8 

= 0.2380000 

ALPHA 

C - 

0.2018000 

1 

*1 

A I 

=-0.0508216 

ALPHA 

A =-2.9410000 

ALPHA 

0 

=-0.1600000 

ALPHA 

c * 

0.1392000 

I 

*2 

A I 

= 0.0329688 

ALPHA 

A = 1.2530000 

ALPHA 

0 

= 0.0780000 

ALPHA 

c = 

0.1445000 

I 

*3 


THETAfl) =. 44932230 
V( 1* U II = 0.470 

Y(I,3, 3) = 1.17° 


THFTAI2) =.37102938 THET A I 3 ) =. 

Y( 1,1,2) = -0.100 Y(1 ,1,3) = 0 .680 

YI2.2.2) = -0.600 V 12 ,2 * 3 ) = 1.550 


YM,2,2> = -0.100 YI 1,2,3) 
Y ( 2, 3, 3 ) *-0.810 Y{ 3,3,31 


-1.720 

-0.450 


xi r . j i 

-42.7750 

-16.4000 

-162.6400 


- 16.4000 -167. 64C0 
-19.0150 -19.3700 

-19.3700 -46.4650 


LFVEt =-0 


V( 1 ) =3656.65001 1 ) 
V( 21 =1594.780011) 
VI 3) =3755.790011) 


Oil = 0. 

G22 * 0. 

G33 = 0. 


T = 5000.000 


t) =1.0522376 

R 

=0.3491556 

S =1.5364656 I = 

1 



1) =0.4589139 

R 

= 0.63196 97 

S =2.7171673 I = 

2 



11 =1 .0007661 

3 

=0.3393355 

S =1.5136275 I = 

3 



CONTR I RUT ION 


0 

LN 0 


H-HO/ RT 

CP /ft 

FI FCTR 


1 . 0000 

0. 


0. 

0. 

H.O. 


6.3191 

1 . 84358367 


1.9076323 2 

2.80335173 

R .R . 


79 64. 70 72 

7.99453354 


1.50000000 

1.50000000 

R HO 


1.1124 

0.10650000 


0.10650000 

0.21300000 

THFTA 


1. 0009 

0.00099003 


-0.00089042 

0.00000075 

FIRST DRDFR CORRECTIONS 





ALPHA 


0. 9546 

-0.04642865 


-0.04005801 

-0.06193407 

XIJ 


1.0710 

0.06856769 


0.12646388 

0.30333602 

YIJK 


1.0043 

0.00428596 


0.01142752 

0.03873087 

AX IJ 


0. 993 0 

-0. 00702780 


-0.01502021 

-0.04561825 

S ECONO ORDFR CORRECTIONS 





1 X IJ ) 2 


l. 0098 

0.00975028 


0.02659192 

0.09221710 

X Y 


1.002 7 

0.00264834 


0.00939342 

0.04116510 

AX2 


0.9977 

-0.00226210 


-0.00755046 

-0.03202735 


H2D 11 0) 


H7ER0 = —57)03.500 


T 

CP/p 

(H-HO) /RT 

S/R 

-( F-HO )/R T 

H/RT 

5000 

7.3522221 

6. 1244898 

38.0642924 

31.9398026 

0.3775317 

H7FR0 = 

-57103.500 





T 

CP 

H-HO 

S 

-CF-HO) 

H 

5000 

14. 6107768 

60854.7671 

75.643645 

317363.4570 

3751.2682 


-F/RT 

37.6867604 

-F 

374466.9531 
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MG1 ( G) 



DELTAH 

35.5999999 

KCAL 


T 

298.15000 


EFTAP E 










LSTSOS 

T 

1000. 

T 

5000. 

T CONST 

1000. 

EXP 



LSTSOS 

EXP 

1. 

EXP 

2. 

EXP 

3. 




HATE 

4/63 









HETHOO 

TEMPER 


FILL 







DATA 

0 


0 

21850.368 

1 

21870.426 

2 

21911.140 

3 

DATA 

1 

35051.360 

2 

46403.140 

3 

47957.035 

2 

47957.018 

3 

DATA 

1 

41197.370 

0 

43503.340 

0 

47841.200 

1 

47844.440 

4 

DATA 

2 

47851.140 

1 

49346.710 

2 

53134.700 

7 

54192.430 

4 

DATA 

1 

4795 7. 047 

0 

57812.720 

1 

57833.280 

2 

57873.890 

3 

DATA 

1 

51872.360 

0 

52556.370 

4 

54252.600 

1 

54699.400 

5 

DATA 

2 

54676. 760 

3 


4 


3 

54676.660 

4 

DATA 

2 

55891. 830 

0 

56187.030 

1.5 

57018.800 

2 

5702 0.100 

6 

DATA 

2 

56308.430 

7 

56968.310 

10 

57204.220 

3 

57204.220 

5 

DATA 

1 

57853.500 

0 

58009.460 

u 

58478.40 0 



7 

DATA 

1 

58023.2 70 

7 

58442.620 

10 

58575.540 

3 

58575.540 

6 

DATA 

1 

58962.490 

2 

59690 .020 

7 

59880.300 

13. 5 

59935.380 

8 

DATA 

2 

59041. 090 

7 

59317.400 

10 

59400.770 

3 


7 

DATA 

1 

59648.200 

2 

60127.310 

7 

60263. 

13.5 

60301.300 

9 

DATA 

1 

60103.500 

2 

60435.150 

7 

60534.500 

13.5 

60562.640 

10 

OATA 

1 

60420.200 

2 

60658.370 

7 

607 34. 

13.5 

60755.780 

11 

DATA 

1 

60649.200 

2 

60826.600 

7 

60884.800 

13.5 

60902.530 

12 

DATA 

1 

6082 0.900 

2 

60955.800 

7 

61002.200 

3 

61016.420 

13 

DATA 

1 

60952. 

7 

61094.600 

3 

61106.980 

IP 

61669.140 

14 

MG1C G ) 








MG1 <G> 


F IN ISH 

B 

4.0 

4.0 

4.0 

4.0 

4.0 

4.0 

4.0 

4.0 

4.0 

4.0 

4.0 

4.0 

N 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 
13 
1 A 

PRED. SUM(?J+1) 

36.0 

64.0 
100.0 

144.0 

196.0 

256.0 

324.0 

400.0 
4 84.0 

576.0 

676.0 
784. 0 

ACT. SUM (2 J+l ) DIFF 

42.0 -6.0 

64.0 0. 

64.0 36.0 

61.0 83.0 

61.0 135.0 

51.0 205.0 

51.0 273.0 

51.0 349.0 

51.0 433.0 

51.0 525.0 

30.0 646.0 

25.0 759.0 

MAX LEVEL 
57873.8901 
54676.7598 
57204.2202 
58575.5400 
59400.7700 
59935.3799 
60301.2998 
60562.6401 
60755.7798 
60902.5298 
61016.4199 
61106.9800 

2J + 1* MAX LEVEL 

5.0 

9.0 

43.0 

90.0 

142.0 

233.0 

301.0 

377.0 

461.0 

553.0 

653.0 

766.0 
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L FAS T SQUARES 


T 

CP/R INPUT 

CP/R CALC 


HH/RT INPUT 

HH/RT CALC 


S/R INPUT 

S/R CALC 


-FH/RT input 


INPUT-CALC 

FRACTION 


INPUT-CALC 

FRACTION 


INPUT-CALC 

fraction 


input-calc 

1000.00 

2 . 5000000 

2.4999999 


2.5000000 

2.4999999 


20.8912263 

20.6912261 


18. 39L2263 


0.0000001 

0. 0000000 


0.0000001 

0.0300000 


0.0000002 

0.0000000 


0. 0000002 

1100.00 

2. 50DOCOO 

2.5016205 


2.5000000 

2.5000796 


21.1295018 

21.1295836 


18. 6295018 


-0.0O16205 

-0.0006482 


-0.0000796 

-0.0300318 


-0.0000818 

-0.0000039 


-0.0000021 

1200.00 

2. 5000000 

2.5025073 


2.5000000 

2.5002497 


21.3470304 

21.3472960 


18. 8470304 


-0. 0025073 

-0. 001002 9 


-0.0002497 

-0.0000999 


-0.0002656 

- 0.0000124 


-0. 0000157 

1300.00 

2.5000001 

2.502 7796 


2.5000000 

2.5004374 


21.5471370 

21.5476179 


19.0471370 


-0.0027795 

-0. 001111 8 


-0.0004374 

-0.0001749 


-0.0004809 

-0.0000223 


-0. 0000434 

1400.00 

2.5000007 

2.502 5565 


2.5000000 

2.5005993 


21.7324071 

21.7330883 


19.2324071 


-0.0025558 

-0.0010223 


-0.0005993 

-0.0002397 


-0.0006812 

-0.0000313 


-0. 0000818 

1500.00 

?. 5000030 

2. 5019571 


2.5000001 

2.5007115 


21.9048891 

2 1.9057286 


19. 4C48891 


-0.0019542 

-0.0007817 


-0.0007114 

-0.0002846 


-0.0008395 

-0.0000383 


-0. 0001278 

1600.00 

2.5000T98 

2.5011 006 


2.5000005 

2.5007637 


22.0662360 

22.0671749 


19. 5662355 


-0.0010908 

-0. 0004363 


—0. 0037632 

-0.0003053 


-0.0009389 

-0.0000425 


-0. 0001 757 

1700.00 

2.5000277 

2.5001061 


2.5000015 

2.5007546 


22.2177985 

22.2187736 


19. 7177970 


-0.0000784 

-0.0000313 


-0.0007531 

-0.0003012 


-0.C009 751 

-0. 0000439 


-0.0002220 

1800.00 

2. 5000693 

2.499092 7 


2.5000039 

2.5006903 


22.3606968 

22.3616467 


19. 860693 0 


0.0009766 

0. 0003906 


-0.0006063 

-0.0002745 


-0.0009499 

-0.0000425 


-0.0002632 

1 900.00 

?. 500 1 563 

2.4981796 


2.5000094 

2.5005814 


22.4958711 

22.4967408 


19.9958618 


0.0019766 

0. 0007906 


-0.0005720 

-0.0002288 


-0.0008698 

-0.0000387 


-0.0002 975 

2000.00 

2.5003231 

2. 4974859 


2.5000205 

2.50C4428 


22.6241159 

22.6248617 


20.1240954 


0.0028372 

0.001134 7 


-0.0004223 

-C. 0301689 


-0.0007458 

-0.0000330 


-0. 0003233 

2100.00 

2.5O06204 

2.4971308 


2.5000414 

2.5302920 


22.7461135 

22.7467041 


20.2 460 72 3 


0.0034897 

0. 001 3955 


-0.0002506 

-0.0001002 


-0.0005906 

- 0.0000260 


-0.0003 3 97 

2200.00 

2.501 11 79 

2.4972333 


2.5000781 

2.5001487 


22.8624530 

22.8628712 


20. 3623750 


0.0038846 

0. 0015531 


— 0. 0000706 

-0.0000282 


-0.0004102 

-0.0000183 


-0. 0003474 

2300.00 

2.5019061 

2. 497912 7 


2.5001392 

2.5003344 


22.9736483 

22.9738898 


20.4735093 


0.0039934 

0. 0015961 


0.0001048 

0.0000419 


-0.0002415 

-0.0000105 


-0.0003459 

2400.00 

2.5030976 

2.4992880 


2.5002360 

2.4999720 


2 3.0801520 

23.0802267 


20. 5799162 


C. 003 8096 

0. 001 522 0 


0.000264C 

0.0001056 


-0.0000746 

-0.0000032 


-0.00033 83 

2500.00 

2. 5048260 

2.501 4784 


2.5003830 

2.4999855 


23.1823664 

23.1822941 


20.6819835 


0.0033476 

0.0013365 


0.0003974 

0.0001590 


0.0000722 

0.0000031 


-0. 0003250 

2600.00 

2.5072446 

2. 5046031 


2.5005979 

2.5000999 


23.2806518 

2 3.2804615 


20. 7800541 


0.0026415 

0.001053 6 


0.0004981 

0.0001992 


0.0001903 

0.0000082 


-0. 0003 076 

2700.00 

2.51 05 232 

2. 508781 0 


2.5009019 

2.5003406 


23.3753347 

23.3750608 


20.8744330 


0.0017422 

0. 000 6940 


0.0005613 

0.0002244 


0.0002739 

0.000011 7 


-fc. 0002871 

2800.00 

2.51 4844 7 

2. 5141315 


2.5013193 

2. 5007339 


23.4667113 

23.4663923 


2 0. 9653921 


0.0Q97131 

0. 0002 83 6 


0. 0005854 

0.0002340 


0.0003190 

0.0000136 


-0. 0002661 

2900.00 

2.5204001 

2.520773 7 


2.5018776 

2.5013065 


23.5550535 

23.5547283 


21. 0531 759 


-0.0003736 

-0. 0001482 


0.0005711 

0.0002283 


0.0003252 

0.0000138 


-0.0002458 

3000.00 

2. 5273846 

2.5288266 


2.5026072 

2.5020855 


23.6406124 

23.6403184 


21.1380053 


-0.0014420 

-0. 0005706 


0.000 5217 

0.0002084 


0.0002940 

0.0000124 


-0.0002275 

3100.00 

2.5359925 

2.5384095 


2.5035407 

2.5030984 


23.7236207 

23.7233899 


21.2200801 


-0.0024170 

-0. 0009531 


0.0004423 

0.0001767 


0.0002308 

0.0000097 


-0.0002112 

3200.00 

2.5464129 

2. 549641 4 


2.5047127 

2.5043730 


23.8042943 

23.8041537 


21.2995818 


-0.0032285 

-0. 0012679 


0.0003397 

0.0001356 


0.0001407 

0.0000059 


-0.0001988 

3300.00 

2.5588248 

2.5626415 


2.5061591 

£. . 5059 37 1 


23.8828366 

23.8828049 


21.3766775 


-0.0038167 

-0.001 491 6 


0.0002220 

0.0000886 


0.0000317 

0.0000013 


-0.0001903 

•3400.00 

2.5733955 

2. 5775290 


2.5079169 

2.5078191 


23.9594359 

23.9595237 


21.4515193 


-0.0041336 

-0. 001 6063 


0.0030978 

0 .0000390 


-0.0000877 

-0.0000037 


-0. 0001 853 

3500.00 

2.5902756 

2. 594422 8 


2.5100232 

2.5100471 


24.0342700 

24.0344784 


21. 5242469 


-0.0041473 

-0. 001601 1 


-0.0000240 

-0.0000095 


-0.0002084 

- 0.0000087 


-0.0001843 

3600.00 

2.6095974 

2.6134423 


2.5125150 

2.512650 0 


24.1075051 

24.1078269 


21. 5949903 


-0.003 8449 

-0. 001 4734 


-0.0001351 

-0.0000538 


-0.0003219 

- 0.0000133 


-0.0001 864 

3700.00 

2.6314733 

2.6347066 


2. 5154286 

2.5156563 


24.1792979 

24. 1 797173 


21.6638694 


-O. 0032332 

-0. 0012287 


-0.0002277 

-0.0000905 


-0.0004194 

-0.0000173 


-0. 0001 915 

3800.00 

2.6559945 

2. 6583347 


2.5187992 

2.5190948 


24.2497945 

24.2502890 


21. 7309954 


-0.0023402 

-0.000881 1 


-0.0002957 

-0.0001174 


-0.0004945 

- 0.0000204 


-0. 0001986 

3900.00 

2.6832312 

2.6844458 


2. 5226603 

2.5229944 


24. 3191314 

24.3196726 


21.7964711 


-P.OC12146 

-0. 000452 7 


-0.0003341 

-0.0001325 


-0.0005412 

- 0.00002 22 


-0. 0002 069 

4000.00 

2. 7132329 

2.7131589 


2.5270438 

2.5273840 


24.3874369 

24.3879931 


21. 8603933 


0.0000740 

0. 00002 73 


-0.0003402 

-0.0001346 


-0.0005562 

-0.0000228 


-0.0002158 

4100.00 

2.7460277 

2. 7445 93 7 


2.5319792 

2.5322928 


24.4548316 

24.4553690 


21. 9228525 


0.0014340 

0.00 0 52 2 2 


-0.0003136 

-0.0001239 


-0.0005374 

-0.0000220 


-0.0002236 

4200.00 

2.7816251 

2.7788685 


2.5374938 

2.5377499 


24.5214257 

24.5219123 


21.9839320 


0.0027567 

0.0009910 


-0.0002561 

-0.0001009 


-0.0004866 

-0.0000198 


-0.0002303 

4300.00 

2.8200166 

2. 8161 030 


2.5436123 

2.5437844 


24.5873232 

24.5877309 


22. 0437109 


0.0039136 

0. 0013 87 8 


-0.0001720 

-0.0000676 


-0.0004077 

-0.0000166 


-0. 0002356 

4400.00 

2.861 1778 

2. 8564162 


2.5503568 

2.5504256 


24.6526198 

24.6529274 


22.1022 632 


0.0047617 

0.0016642 


-0.0000688 

-0.0000270 


-0.0003076 

-0.0000125 


-0.0002384 

4500.00 

2.9047892 

2. 8999273 


2.5577315 

2.5577028 


24.7173891 

24.7176003 


22. 1 596577 


0.0048620 

0. 001 673 8 


0.0000286 

0.0000112 


-0.0002112 

-0. 0000085 


-0.0002396 

4600.00 

2.9512089 

2. 9467552 


2.5657746 

2.5656453 


24.7817349 

24. 7818439 


22.2159605 


0.0044537 

0. 001 5091 


0.0001292 

0.0000504 


-0.0001090 

- 0. 0000044 


-0.0002379 

4700.00 

3.0001490 

2.99701 95 


2.5744878 

2.5742826 


24.8457201 

24.8457499 


22.2712324 


0.0031295 

0. 001 0431 


0.0002051 

0.0000797 


-0.0000298 

- 0.0000012 


-0. 0002348 

4800.00 

3.0516366 

3. 0508386 


2.5838878 

2.5836439 


24.9094193 

24.9094052 


Z2. 3255317 


0.0007980 

0.0002 615 


0.0002438 

0.0000944 


0.0000141 

0. 0000006 


-0.0002294 

4900.00 

3. 1055283 

3.108332 6 


2.5939796 

2.5937589 


24.9728916 

24.9728959 


22. 3789120 


-0.0028043 

-0. 000903 0 


0.0002207 

0.0000851 


-0.0000043 

- 0. 0000002 


-0.0002248 

5000.00 

3.1617320 

3. 1696197 


2.6047688 

2.6046568 


25.0361936 

25.0363030 


22.431 4249 


-0.0078878 

-0.002494 8 


0.0001120 

0.0000430 


-0. COO 1094 

-0.0000044 


-0.0002213 

MAX-RFL FIR 

CP/R = 0. 

002495 TEMP 

- 

5000. 

AVER RFL ERR 

CP/R = 0.000998 

REL L ST 

SO 

ERR CP/R = 

MAX RFl FRR 

HH/RT = 0. 

000305 TFMP 

= 

1600. 

AVER RFL ERR 

HH/RT = 0.000129 

REL L ST 

SO 

ERR HH/RT = 

MAX REL ERR 

S/R * 0. 

000044 TEMP 

= 

1700. 

AVER REL ERR 

S/R 

= 0.000016 

REL LST 

SO 

ERR S/R 

MAX R El FRR 

FH/RT = 0. 

000017 TEMP 

- 

2200. 

AVER REL ERR 

FH/RT = 0.0000 10 

*EL LST 

SO 

ERR FH/RT = 

MAX FRR 

CP/R = 0. 

007888 TFMP. 

= 

5000. 

AVER ERR 

CP/R = 0.002660 

LST 

SO 

ERR CP/R = 

MAX FRR 

HH/RT = 0. 

000763 TEMP 

= 

1600. 

AVER ERR 

HH/RT = 0.000325 

LST 

so 

ERR HH/RT = 

MAX ERR 

S/R = 0. 

000975 TEMP 


1700. 

AVFR ERR 

S/R 

= 0.000363 

LST 

so 

ERR S/R 

MAX FRR 

FH/RT = 0. 

000347 TFMP 

- 

2200. 

AVER ERR 

FH/RT = 0.000216 

LST 

so 

ERR FH/RT * 

CP/R * 2.41723206 COT** 0. 1. 65 1 2 1 34E-04T** 1.0 

— 1 .0220 946E- 

■07T ** 2.0 1.985614 3E-11T** 3. 

0 


IH-H01/R CONSTANT = 0.29313141E 02. H/RIA6) CONSTANT 

= 0.1 71 98050E 05, 

S/R CONSTANT 

= 0.40729443E 

01 


-fh/rt calc 
fraction 

18.3912261 
0.0000000 
1 8.6295040 
- 0.0000001 
18.8470461 
-0. 0003008 
19.0471804 
-0. 0000023 
19.2324889 
-0.0000042 
19.4050169 
-0.0000066 
19.5664113 
-0.0000090 
19.7180190 
-0.0000113 
19.8609562 
-0.0000132 
19.9961593 
-0.0000149 
20.1244187 
-0.0000161 
2 0.2464120 
-0.0300168 
20.3627224 
-0.0000171 
20.4738553 
-0.0000169 
20.5802546 
-0.0000164 
20.6823084 
-0.0000157 
20.7803617 
-0.0000148 
20.8747201 
-0.0000137 
20.9656582 
-0.0000127 
21.0534217 
-0.0000117 
21.1382327 
-0.0000108 
21.2202914 
- 0.0000100 
21.2997806 
-0.0000093 
21.3768678 
-0.0000089 
21.4517045 
-0.0300086 
21.5244312 
-0.0000086 
21.5951767 
-0.0000086 
21.6640608 
-0.0000088 
21.7311940 
-0.0000091 
21.7966781 
-0.0000095 
21.8606091 
-0.0000099 
21.9230762 
- 0.0000102 
21.9841623 
-0.0000105 
22.0439465 
-0.0000107 
22.1025016 
-0.0000108 
22.1598973 
-0.0000108 
22.2161984 
-0.0000107 
22.2714672 
-0.0000105 
22.3257611 
-0.0000103 
22.3791368 
- 0.0000100 
22.4316461 
-0.0000099 
0.001141 
0.000155 
0.000020 
0.000011 
0.003091 
0.000389 
0.000459 
0.000233 
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PUMCHFn BINARY CAROS — 


MGUG) 61669. 14C 

0. 1 0000000 E 04 

D.50000000E 04 

0. LO0QQ000E 

04 

C • 50000000E 

04 

0.24172320E 01 

0. 165 12134E-'*'* - 0 . 1 0220946E-06 

0.19856143 E— 1 0 

0. 

0.17198050E 

05 

0.40729443E 

01 

0. 

n. C. 

0. 

0. 

0. 


0. 


4/63 

MGlt G ) 







MG 1 (G 1 


H7FRfl = 3411 fl. 745 


T 

CP/R 

(H-HO) /RT 

( H—H298 ) / RT 

S/R 

-( F-HO )/RT 

- ( F-H298) /RT 

H/RT 

-F/RT 

lor 

2.5O00C0O 

2. 5000000 

-4.9537500 

15.1347638 

12.6347638 

20 .0885136 

174.1873722 

-159.0526066 

2nc> 

7. 5000 (.on 

7. 5000000 

-1.2268750 

16.R676317 

14.3676318 

18.09 450 67 

88.3436861 

-71.4760542 

298.15 

7. 5000000 

2. 5000000 

0.0000000 

17.8658302 

15.3658303 

17.8658302 

60.0842266 

-42.2183962 

300 

2. 5000 000 

2. 5000000 

0.0154167 

17.8812945 

15.3812946 

17.0658779 

59. 72 91241 

-41.8478293 

400 

7. 5000 COO 

2. 5000000 

0.6365625 

18 .6004996 

16.1004996 

17.9639370 

45.4218431 

-26.8213434 

500 

7. 5000000 

7. 5000000 

1.0092500 

19.1583586 

16.6583586 

18.1491084 

36.8374743 

-17.6791158 

600 

7. 5000000 

7 . 5 00 00 00 

1.2577083 

19.6141624 

17.1141624 

18.3564539 

31.1145620 

-11.5003996 

700 

7. 5000000 

?. 5 0 000 GO 

1.4351786 

19.9995391 

17.4995391 

18.5643604 

27. 0267675 

-7.0272284 

800 

7. 5000000 

2. 5000000 

1.5682812 

20 .3333676 

17.8333676 

18 .7650862 

23.9609215 

-3.6275539 

600 

7. 5000 00 0 

7.5000000 

1.6718056 

20 .6278250 

18.1278250 

18.9560194 

21.5763748 

-0.9485497 

1000 

7. 5000000 

2.5000009 

1.7546250 

20.8912263 

18,3912263 

19.1366012 

19.6687372 

1.2224891 

1100 

7. 5000000 

2. 50 000 CO 

1.8223864 

21.1295018 

18 .629 5018 

19.3071153 

18. 1079428 

3.0215589 

1200 

2. 500000 0 

2. 5000000 

1.8788542 

21.3470304 

18.8470304 

19.4681761 

16. 8072810 

4.5397494 

1300 

7. 5000001 

7. 50000O0 

1 .9266 346 

21.5471370 

19.0471370 

19.6205022 

15. 7 0 6 72 09 

5.8404161 

1400 

7. 5no0007 

7. 5000000 

1.9675893 

21 .7324071 

19.2324071 

19 .7648177 

14. 7633 83 7 

6.9690233 

1500 

7.5000030 

2. 5000001 

2.0030834 

21 .9048891 

19.4048391 

19.9010056 

13. 9450250 

7.9590642 

1 600 

7.5000093 

7. 5000005 

2.0341411 

2? .0662360 

19.5662355 

20.0320947 

13.2304612 

8.8357748 

1 700 

7. 5000277 

7. 5000015 

2.0615456 

22.2177985 

19.7177970 

20.1562529 

12. 5992507 

9.6185398 

1800 

7. 5000693 

2. 5000039 

2.0859067 

22.3606968 

19,8606930 

20.2747900 

12. 0381913 

10.3225056 

1900 

7. 5nr>i 563 

7. 5000094 

2.1077068 

22.4958711 

19.9958618 

20 .3881643 

11.5361869 

10.9596843 

2000 

7.5003231 

2. 5 0002 05 

2. 1273330 

22.6241159 

20.1240954 

20.4967828 

11. 0843891 

11.5397269 

7100 

7. 500 67 04 

7. 5000414 

2.1451009 

22.7461135 

20.2460723 

20.6010127 

10. 6756305 

12.0704832 

270 O 

7.5011179 

7. 5000781 

2.1612712 

22.8624530 

20.3623750 

20 .7011817 

10.3040495 

12.5584035 

7300 

2.5919061 

7. 5001392 

2.1760631 

22 .9736483 

20.4735093 

20. 7975852 

9.9648075 

13.0088409 

7400 

2. 5030976 

7.5002360 

2.1896631 

23.9801520 

20.5799162 

20.8904891 

9.6538764 

13.4262757 

2500 

2. 5048260 

7. 5003830 

2.2022330 

23.1823664 

20.6819835 

20.9601333 

9.3678778 

13. 8144885 

7600 

7.5^72446 

2. 5005979 

2.213915 2 

23.2806518 

20.7800541 

21.0667367 

9.1039504 

14.1766936 

2700 

2.5105232 

2. 5009019 

2.224837 1 

23.3753347 

20,8744330 

21 .1504977 

8. 85 96934 

14.5156415 

7RO0 

7.51 48447 

2. 50131 93 

2.2351 139 

23.4667113 

20.9653921 

21.2315974 

8. 6330111 

14.8337002 

7900 

7.5204^01 

7. 501 8776 

2.2448518 

23.5550535 

21.0531759 

21.3102016 

8. 4221318 

15.1329217 

3000 

7. 57 73 846 

2. 5026072 

2.2541488 

23.6406124 

21.1380053 

21. 3864634 

8.2255195 

15.4150928 

3100 

7. 5359975 

2. 5035407 

2.2630971 

23.7236207 

21.2200801 

21.4605236 

8.0418429 

15.6817778 

3700 

7. 5464129 

2.5047127 

2.2717930 

23.8042943 

21.2995818 

21. 5325112 

7. 86 99430 

15.9343513 

3300 

2.5583248 

7. 5061591 

2.2802879 

23.8828366 

21.3766775 

21 .6025486 

7. 7088068 

16.1740298 

3400 

2. 5733955 

2. 50791 69 

2.2886890 

23.9 594359 

21.4515193 

21.6707470 

7. 5575455 

16.4018905 

3500 

2.5902756 

?. 5100232 

2.2970539 

24.0342700 

21.5242469 

21.7372110 

7.4153767 

16.6188934 

3600 

?. 6095974 

2. 5125150 

2.3054664 

24.1075051 

21.5949903 

21.8020387 

7.2816086 

16.8258965 

3 700 

2.631 4733 

7. 51 542 86 

2.3139759 

24 .1792979 

21.6638694 

21.8653219 

7. 1556278 

17.0236700 

3800 

2.6559945 

2. 51 8799? 

2.3226478 

24.2497945 

21.7309954 

21.9271467 

7. 0368879 

17.2129066 

3900 

7.6832312 

2 . 52 2 66 03 

2.3315385 

24. 3191314 

21.7964711 

21 .9875927 

6. 9249005 

17.3942308 

4000 

2.7137329 

7. 5270438 

2.3407000 

24.3874369 

21.8603933 

22 ■ C467370 

6. 81922 81 

17.5682089 

4100 

2. 7460777 

2.5319792 

2.3501 804 

24.4548316 

21.9228525 

22.1046512 

6.7194761 

17.7353556 

4700 

7.7816751 

2. 53 7493 8 

2.3600236 

24.5214257 

21.9839320 

22.1614022 

6.62 52 884 

17.8961375 

4300 

2.8700166 

2. 54361 23 

2.3702693 

24.5073232 

22.0437109 

22.2170539 

6. 5363419 

18.0509813 

4400 

7. 8611 778 

2. 5503568 

2.3809533 

24.6526198 

22.1022632 

22.2716665 

6.4523425 

18.2002773 

4500 

2.9047892 

2. 5577315 

2.3920926 

24.7173891 

22.1596577 

22.3252964 

6.3730064 

18.3443828 

4600 

2.9512089 

2. 5657746 

2.4037365 

24.7817349 

22.2159605 

22.3779984 

6.2981 088 

18.4836261 

4700 

3.0001490 

2. 5744878 

2.4158973 

24.8457201 

22.2712324 

22.4298227 

6.2 2 741 06 

18.6183095 

4800 

3.0516366 

2. 5838878 

2.4286013 

24.9094193 

22.3255317 

22 .4808180 

6. 1607080 

18.7487113 

4900 

3. 10552 83 

2. 5939796 

2.4418622 

24.9728916 

22.3789120 

22.5310292 

6. 0978035 

18.8750880 

5000 

3.1617320 

2. 60476 8B 

2.4556938 

25.0361936 

22.4314249 

22 .5004996 

6.03 85163 

18.9976773 

5100 

3. 720152 6 

2.61 62589 

2.4701069 

25.0993772 

22.4831183 

22.6292701 

5. 9826779 

19.1166992 

5200 

3.2806936 

2.6284510 

2.4851097 

25.1624889 

22.5340381 

22.6773794 

5. 9301313 

19.2323577 

5300 

3.3431221 

2. 6413358 

2.5006990 

25.2255619 

22. 5842261 

22.7248628 

5.88072 02 

19.3448417 

5400 

3.4075789 

2. 6549258 

2.5168934 

25.2886493 

22.6337237 

22.7717559 

5. 8343216 

19.4543278 

5500 

3.4734036 

2. 6691793 

2.5336566 

25.3517461 

22.6825669 

22.8100895 

5.79C7679 

19.5609782 

56C0 

3.5410205 

2. 6841243 

2.5510216 

25.4149179 

22.7307937 

22.8638964 

5. 7499702 

19.6649477 

5700 

3.6104914 

2.6997646 

2.5689971 

25.4782031 

22.7784386 

22.9092059 

5. 7118238 

19.7663794 

5800 

3.6814993 

2. 7160768 

2.5875638 

25.5416093 

22.8255327 

22.9540455 

5.676203 9 

19.8654056 

5900 

3.7539653 

2. 7330520 

2.606717 2 

25.6051579 

22.8721061 

22.9984407 

5. 64300 75 

19.9621506 

6000 

3.8278156 

2. 7506808 

2.6264516 

25.6688683 

22.9181876 

23.0424166 

5.6121370 

20.0567312 
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H7FRQ 


3411 R.745 


r 


T 

OP 

H-HD 

H-H2 98 

S 

-( F-H01 

- I F-H 298) 

H 

-F 

100 

4.9681500 

496. 8150 

-984.4389 

30.07671 1 

2510.8560 

3992.1099 

34615.5596 

-31607.8882 

70 0 

4.9681500 

993. 6300 

-487.6239 

33.520370 

5710.4440 

7191.6979 

35112.3745 

-28408.3005 

798.15 

4. 9681500 

1481.2539 

0.0000 

35.504049 

9104.2786 

10585.5323 

3559$. 9985 

-25014.4661 

300 

4.9681500 

1 490.4450 

9.1911 

35.534781 

9169.9893 

10651.2432 

35609. 1890 

-24948.7549 

400 

4.9681500 

1 987.2600 

506.0061 

36.964029 

12798.3514 

14279.6053 

36106.0044 

-21320.3931 

500 

4.9481500 

2484.0750 

1002.821 1 

38.072639 

16552.2446 

18033.4985 

36602. 8193 

-17566.4998 

600 

4.9681500 

2980. 8900 

1499.6361 

38.978440 

20406.1738 

21087.4275 

37099.6343 

-13712.5702 

700 

4.9681500 

3477. 7050 

1996.4511 

39.744284 

24343.2935 

25824.5471 

37596.4492 

-9775.4507 

800 

4.9681500 

3974.52 00 

2493.2661 

40.407688 

28351.6304 

29832.8840 

38093.2646 

-5767.1143 

900 

4.9681500 

4471.3350 

2990.0011 

40.992851 

32422.2312 

33903.4849 

3 859 C. 0796 

-1696.5135 

1000 

4.9681 500 

4968.1500 

3486.8960 

41.516298 

36548.1479 

38029.4019 

39086.8940 

2429.4037 

1100 

4.9681500 

5464. 9650 

3983.7111 

41.989813 

40723.8296 

42205.0835 

39583. 7090 

6605.0854 

1200 

4.9681500 

5961.7799 

4480.5260 

42.422100 

44944. 7388 

46425.9927 

40080.5239 

10825.9946 

1300 

4.9681 503 

6458.5950 

4977.3410 

42.8 19763 

49207.0972 

50608.3506 

40577.3394 

15088.3527 

1400 

4.9681514 

6955.41 CO 

5474.1561 

43. 187943 

53507.7100 

54908.9634 

41074.1543 

19388.9656 

1500 

4.9681 559 

7452.2253 

5970.9713 

43.530710 

57843.8394 

59325.0928 

41570.9697 

23725.0947 

1600 

4. 9681695 

7949. 0415 

6467.7375 

43.851348 

62213.1152 

63694.3687 

42067. 7861 

28094.3706 

1700 

4.9687050 

8445. 8599 

6964.6061 

44. 152542 

66613.4609 

68094.7148 

42564.6040 

32494.7168 

1 800 

4.9482876 

8942. 6840 

7461.4301 

44.436518 

71043.0488 

72524.3010 

43061.4287 

3692 4.3042 

1900 

4. 9684605 

94 3 9.52 04 

7958.2665 

44.705144 

75500.2539 

76981.5070 

43558.2646 

41381.5098 

2000 

4. 9687921 

9936.3813 

8455.1274 

44.960001 

79983.6191 

81464.8721 

44055.1260 

45864.8750 

2100 

4.9693829 

10433.2875 

8952.0336 

45.202441 

84491 .8309 

85973.0928 

44552. 0317 

50373.0952 

2200 

4.970371 5 

10930.2711 

9449.0171 

45.433638 

89023.7324 

90504.9854 

45049.0156 

54904.9078 

2300 

4.9719379 

1 1 42 7. 3 8 09 

9946.1271 

45 .6546 1 2 

93578.2266 

95059.4795 

45546.1250 

59459.4819 

2400 

4. 9743056 

11924. 6854 

10443.4315 

45.866262 

98154.3447 

99635.5986 

46043.4292 

64035.6006 

7500 

4.9777405 

12422.2776 

10941.0237 

46.069389 

102751.1953 

104232.4482 

46541.0215 

68632.4502 

7600 

4. 982 5449 

12920.2793 

11439.0254 

46.264708 

107367.9619 

108849.2148 

47039.0234 

73249.2168 

2700 

4.9890624 

13418. 0440 

11937.5901 

46.452868 

112003.8994 

113485.1523 

47537.5884 

77885.1543 

2800 

4.9976501 

13918.1608 

12436.9067 

46.634457 

116658.3164 

118139.5703 

48036.9048 

02539.5723 

2900 

5.008690? 

1441 8.4557 

12937.2018 

46.8100 15 

121330.5879 

12? 811.8418 

48537.1997 

87211.8438 

3000 

5.0225703 

14919. 9934 

13438.7394 

46.980043 

126020.1357 

127501.3887 

49038.73 73 

91901.3916 

3100 

5.0396764 

15423.0774 

13941.8234 

47. 145302 

130726.4297 

132207.6836 

49541.8213 

96607.6855 

3200 

5.0603844 

1592 8. 04 90 

1 4446 . 794E 

47.305322 

135448.9805 

136930.2324 

50046.7935 

101330.2363 

3300 

5.0850501 

16435.2861 

14954.0320 

47.461406 

140187. 3516 

141668.6035 

50554.0303 

106068.6074 

3400 

5.1140058 

16945.2017 

15463.9479 

47.613628 

144941.1348 

146422.3887 

51063.9463 

110822.3896 

3500 

5.1475509 

1 7458.7402 

15976.9862 

47.762343 

149709.9609 

151191.2129 

51576.9844 

l 15591.2158 

3600 

5. 1859485 

17974. 8738 

16493.6196 

47.907880 

154493.4961 

155974.7480 

52093.61 82 

120374.7510 

3700 

5. 7294217 

1 8495. 5991 

17014.3452 

48.050551 

159291.4395 

160772.6914 

52614.3433 

125172.6943 


3000 5. 2781 51 6 19020.9333 17539.6792 48.190646 164103.5215 165584.7754 53139.6777 1299B4.7773 
3900 5.3322781 19551.4092 18070.1559 48.328437 168929.4941 170410.7461 53670.1528 134810.7500 
4000 5.3918991 20087.5720 18606.3181 48.464178 173769.1387 175250.3926 54206.3164 139650.3945 
4100 5.4570711 20629.9741 19148.7202 48.598108 178622.2715 180103.5254 54748.7188 144503.5254 
4200 5.5278123 21179.1716 19697.9177 48.730448 183488.7109 184969.9648 55297.9155 149369.9668 
4300 5.6041061 21735.7214 20254.4675 48.861403 188368.3125 189849.5664 55854.4658 154249.5664 
4400 5. 685904? 22300.1765 20818.9226 48.991165 193260.9492 194742.2031 56418.9209 159142.2051 
4500 5.7725714 22872.9482 21391.6943 49.119878 198166.5039 199647.7559 56991.6924 164047.7598 
4600 5.8648193 23454. 76 C7 21973.5068 49.247750 203084.8887 204566.1406 57573.5054 168966.1426 
4700 5.9620759 24046.0295 22564.7756 49.374906 2 08016.0254 209497.2773 58164.7739 173897.2793 
4800 6.0643953 24647.3125 23166.0586 49.501493 212959.8496 214441.1035 58766.0566 178841.1055 
4900 6.1714921 25259.0681 23777.8140 49.627628 217916.3105 219397.5625 59377.8125 183797.5645 
5000 6.2831835 258R1.7644 24400.5105 49.753426 222885.3633 224366.6152 60000.5088 188766.6191 
5100 6.3992803 26515.8513 25034.5974 49.878988 227866.9844 229348.2363 60634.5957 193748.2402 
5200 6.5195912 27161.7610 25680.5071 50.004407 232861.1582 234342.4121 61280.5054 198742.4141 
5300 6.6436529 27819.8110 26338.5569 50.129750 237867.8613 239349.1152 61938.5552 203749.1172 
5400 6.7717451 28490.5500 27009.2961 50.255121 242887.1055 244368.3574 62609.2944 208768.359* 
5500 6.9025561 29173.9429 27692.6887 50.380511 247918.8652 249400.1191 63292.6870 213800.1191 
5600 7. 0^692 83 29870.6951 28389.4412 50.506050 252963.1797 254444.4336 63989.4395 218844.4355 
5700 7.1749851 3^581.2649 29100.0107 50.631814 258020.0723 259501.3242 64700.0093 223901.3281 
5800 7.3160963 31305.7939 29824.5400 50.757818 263089.5508 264570.8047 65424.5386 228970.8066 
5900 7.4601051 32044.5806 30563.3267 50.884106 268171.6445 269652.8984 66163.3252 234052.9004 
6000 7.6068648 32797.9067 31316.6528 51.010715 273266.3828 274747.6328 66916.6514 239147.6367 

FFOATA MGKOl HZFRO 34118.7451 MEL T PT 0. T NQ. 61 


T 

H-HO/RT 

-CF-HO 1/RT 

T 

H-HO/RT 

— IF— HO 1 /R T 

loo. oon 

2. 50000000 

12.63476384 

200.000 

2.50000000 

14. 3 6 763 1 79 

298. 150 

2. 50000000 

15.36503030 

300.000 

2.50000000 

15.38129461 

400.000 

2. 50000000 

16.10049963 

500.000 

2. 50000000 

16.65835857 

600.000 

2.50000000 

17.11416245 

700.000 

2.50000000 

17.49953914 

800.000 

2. 50000000 

17.83336759 

900.000 

2.50000000 

18.12782502 

1000.000 

2. 50000000 

18.39122629 

non. 000 

2. 50000000 

18.62950182 

1200.000 

2.50000000 

18. 84703040 

1 300.000 

2.50000000 

19.04713702 

1400.000 

2. 50000003 

19.23240709 

1 500 .000 

2.50000012 

19.4048891 1 

1600.000 

2. 50000048 

19.56623554 

1700.000 

2.50000149 

19.71779704 

1 800.000 

2. 50000393 

19.86069298 

1900.000 

2.50000942 

1 9.99586177 

2000.000 

2. 50002050 

20.12409544 

2100.000 

2.50004137 

20.24607229 

2200.000 

2.50007805 

20.36237502 

2300.000 

2.50013918 

20.47350931 

2400.000 

2.50023600 

20.57991624 

2500.000 

2. 50038299 

20.68198347 

2600. OOO 

2.50059792 

20.78005409 

2700.000 

2.50090188 

20.87443304 

2800.000 

2. 50131929 

20. 96539211 

2900.000 

2. 501 87764 

21.05317593 

3000.000 

2. 50260720 

21.13800526 

3100.000 

2.50354069 

21.22008014 

3200.000 

2. 50471267 

21.29958177 

3300.000 

2.50615913 

21.37667751 

3400.000 

2.50791690 

21.45151925 

3500.000 

2.51002318 

21.52424693 

3600.000 

2. 51251498 

21.59499025 

3700.000 

2.51542860 

21.66386938 

3800.000 

2. 51 879916 

21.7309954? 

3900.000 

2.52266029 

21.79647112 

4000.000 

2.52704379 

21. 86039329 

4100.000 

2.53197923 

21.92285252 

4200.000 

2. 53749382 

21.98393202 

4300. UOO 

2. 54361233 

22.04371095 

4400.000 

2. 55035678 

22.10226321 

4500.000 

2.55773148 

22.15965772 

4600.000 

2.56577456 

22.21596050 

4700.000 

2.57448778 

22.27123237 

4000.000 

2. 58388779 

22.32553172 

4900.000 

2.59397960 

22. 37891197 

5000.000 

2.60476884 

22.43142486 

5100.000 

2.61625889 

22.48311830 

5200.000 

2.62845105 

22.53403807 

5300.000 

2.64133582 

22.58422613 

540C.000 

2.65492579 

22.63372374 

5500.000 

2. 66917932 

22.68256688 

5600.000 

2. 68412426 

22.73079371 

5700.000 

2.69976461 

22.77843857 

5800.000 

2. 71607679 

22.82553267 

5900.000 

2.73305199 

22.87210608 

6000.000 

2. 75068077 

22.91818762 
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HG1 C S » 


A SINDH 


298.15000 


LOOK • 


MFTHOO 

R FAD IN 


MELTPT 

923. 





OAT A 

T 

ino. 

CP 

3.7530000 

H-HO/T 

1.5290000 

S 

2.2630000 

DATA 

T 

200. 

CP 

5.4180000 

H-HO 

630.90000 

s 

5.5110000 

DATA 

T 

298.15000 

CP 

5.9290000 

H-HO 

1190.30000 

s 

7.7800000 

DATA 

T 

300. 

CP 

5.9370000 

H-HO 

1201.30000 

s 

7.8170000 

data 

r 

400. 

CP 

6.2410000 

H-HO 

1811.30000 

s 

9.5690000 

DATA 

T 

500. 

CP 

6.4930000 

H-HO 

2447.70001 

s 

10.9890000 

DATA 

T 

400. 

CP/R 

3.4047000 

H-HORT 

2.6080000 

-FHORT 

3.52 86000 

DATA 

T 

700. 

CP 

7.0840000 

H-HO 

3802. 

S/R 

6.6730000 

DATA 

T 

80 0. 

CP 

7.4260000 

H-HO 

4527.29999 

-FHO/T 

8.5698750 

DATA 

T 

900. 

CP 

7.7920000 

H-HO 

5288. 

S 

15.1250000 

DATA 

T 

92 3. 

CP 

7 . 8 80G000 

H-HO 

5468.2000 1 

S 

15.3220000 

TEMP 

T 

923. 

T 

1000. 

I 

100. 

T 

2500. 

METHOD 

CO FF 


DELTAH 

2140. 





DATA 

T 

923. 

T 

6000. 

Cl 

8 . 

El 



FINISH 
MG1I S > 

H7ER0 = -1 190 .300 


T 

CP/R 

(H-HO I /RT 

(H-H298 ) /RT 

S/R 

-( F-HO )/RT 

— ( F-H298) /R T 

H/RT 

-F/ RT 

100 

1.8885299 

0. 7694011 

-5.2202529 

1 .1387539 

0.3693528 

6.3590068 

-5.22 02 529 

6.3590068 

200 

2.7263669 

1. 5873615 

-1.40 74655 

2.7731650 

1.1858036 

4. 18063C6 

-1.40 74655 

4. 1006306 

29R. 15 

2.9835049 

2. 0089390 

0.0000000 

3.9149381 

1.9059983 

3.9149381 

0. 0000000 

3.9149301 

300 

2.9875306 

2. 015002? 

0.0104509 

3.9335567 

1.9185545 

3.9151058 

0.01 84509 

3.9151058 

400 

3.1405050 

2.2 7863 9 [ > 

0.7812264 

4.81517?6 

2.5365327 

4.0339462 

0. 7812264 

4.0339462 

500 

3.2673128 

2. 4633 91 H 

1.2654610 

5.5297243 

3.0663325 

4.2642633 

1.2654610 

4.2642633 

600 

3.4047000 

2. 6080000 

1 .6097243 

6.1366000 

3.5286000 

4.5268757 

1.6097243 

4.5260757 

700 

3.5647072 

2, 7331243 

1 .3774595 

6 .6730000 

3.9398757 

4.7955405 

1. 877459b 

4.7955405 

800 

3. 7368034 

2. 84 77024 

2.0909956 

7.1601098 

4.3124075 

5.0611142 

2. 0989956 

5.0611142 

900 

3.9209766 

2. 9566114 

2.2910943 

7.6 109819 

4.6543705 

5.3198876 

2.2910943 

5.3198876 

923 

3.9652587 

2. 9811786 

2.3322454 

7.7101134 

4.7289348 

5.3778680 

2.3322454 

5.3778600 

923 

4.0256433 

4. 1478737 

3.4989404 

8.8768086 

4.7289349 

5.3778682 

3.49894 04 

5.3778682 

1000 

4.0256433 

4. 1384620 

3.5394966 

9.1993675 

5.0609055 

5.6598709 

3. 5394966 

5.6598709 

1100 

4.0256433 

4. 12 82057 

3.5836917 

9 .5830524 

5.4548467 

5.9993607 

3. 5836917 

5.9993607 

1200 

4.0256433 

4. 1196589 

3.6205210 

9.9333293 

5.8136705 

6.3128083 

3. 620521 0 

6.3120083 

1300 

4.0256433 

4. 11242 69 

3.6516843 

10.2555525 

6.1431256 

6 . 6038682 

3. 6516843 

6.6038682 

1400 

4.0256433 

4.1062281 

3.6783956 

10.5539850 

6.4476569 

6.8754894 

3.6783956 

6.8754894 

1500 

4.0256433 

4. 1008558 

3.7015455 

10.8316255 

6.7307697 

7.1300799 

3. 7015455 

7.1300799 

1600 

4.0256433 

4, 09615 50 

3.7218016 

1 1.0914347 

6.9952797 

7.3696331 

3. 7218016 

7.3696331 

1700 

4.0256433 

4. 0920072 

3.7396746 

11.3354876 

7.2434804 

7.5958129 

3. 7396746 

7.5958129 

1800 

4.0256433 

4. 08832 04 

3.7555618 

11.5655870 

7.4772667 

7.8100252 

3. 75 55618 

7.0100252 

1900 

4.0256433 

4. 0850216 

3.7697766 

11 .7832425 

7.6992209 

8.0134658 

3. 7697766 

8.0134658 

2000 

4.0256433 

4. 0820526 

3. 7825699 

1 1 .9897308 

7.9076782 

8.207 1608 

3. 7825699 

8.2071608 

2100 

4.0256433 

4 . 0 7 93 6 65 

3.7941449 

12.1861426 

8.1067761 

8.3919977 

3. 7941449 

8.3919977 

2200 

4. n 2 56433 

4, 0769245 

3.8046675 

12.3734156 

8.2964911 

8. 5687481 

3. 8046675 

8. 5687481 

2300 

4.0256433 

4. 0746949 

3.8142752 

12.5523626 

8.4776677 

8.7380874 

3. 8142752 

8.7380874 

2400 

4,0256433 

4. 0726511 

3.823002 l 

12.7236925 

8.6510415 

8.9006103 

3. 8230821 

8.9006103 

2500 

4.0256433 

4. 0707708 

3.8311846 

12.8880273 

8 .8172566 

9.0568427 

3. 8311 846 

9.0568427 


H7FRO = -1 190.300 


T 

CP 

H-HO 

H-H298 

S 

-1 F-HO) 

- (P-H298) 

H 

~F 

100 

3. 7530000 

152.9000 

-1037.4000 

2.263000 

73.4000 

1263. 7000 

-1037.4000 

1263.7000 

200 

5.41 79999 

6 3 0-90 00 

-559.4000 

5.511000 

471.3000 

1661.6000 

-559.4000 

1661.6000 

200, 

.15 5.9290000 

1190.3000 

0.0000 

7.780000 

1129.30 70 

2319.6070 

C.0000 

2319.6070 

300 

5. 9369999 

1201.3000 

11.0009 

7.817000 

1143.8000 

2334.0999 

11.0000 

2334.0999 

400 

6.2409999 

1811.3000 

62 1.0900 

9.569000 

20 16.3000 

3206.5999 

621.0000 

3206.5999 

500 

6.4929999 

2447.7000 

1257.4000 

10.989000 

3046.7999 

4237.0999 

1257.4000 

4237.0999 

600 

6.7660241 

3109, 6644 

1919.3645 

12. 195020 

4207,3473 

5397.6473 

1919.3645 

5397.6473 

700 

7.0839999 

3802.0000 

2611.7000 

13.260986 

5480.6900 

6670.9900 

2611.7000 

6670.9900 

800 

7.4259599 

4527.2999 

3337.0000 

14.229000 

6855.8999 

8046.1998 

3337.0000 

8046.1998 

900 

7.7919999 

52 87. 9999 

4097.7000 

15.125000 

8324.4999 

9514.7998 

4097.7000 

9514.7998 

9? 3 

7. 8799999 

5460.2000 

4277.9000 

15.322000 

8674.0059 

9864.3058 

4277.9000 

9864.3058 

92 3 

7.9999999 

76 08. 1998 

641 7.8998 

17.640527 

8674.0061 

9864.3060 

6417.8998 

9864.3060 

1000 

7.9999999 

8224.2000 

7033.9000 

18.281535 

10057.3350 

11247.6349 

7033.9000 

11247.6349 

1100 

7.9999999 

9024. 1998 

7833.8998 

19.044017 

11924.2184 

13114.5183 

7833. 8998 

13114.5183 

1200 

7- 9999999 

9824. 1 999 

8533.8998 

19.740108 

13863.9294 

15054.2294 

8633. 8998 

15054.2294 

1300 

7. 9999999 

10624.2000 

9433.8999 

20.380449 

15870.3839 

17060.6838 

9433.8999 

17060.6838 

1400 

7. 9999999 

11424. 1 957 

10233.8997 

20.973313 

17938.4387 

19128.7385 

10233. 8997 

19128.7385 

1500 

7.9999999 

12?24. 1998 

11033.8998 

21.525256 

20063.6838 

212 53.9836 

11033.8998 

21253.9836 

1600 

7.9999999 

13024. 1958 

11833.8999 

22.041564 

22242.3032 

23432.6030 

11833.8999 

23432.6030 

1700 

7. 9999999 

13824. 1997 

12633.8998 

22.526561 

24470.9539 

25661.2534 

12633.8998 

25661.2534 

1800 

7. 9999999 

14624.2000 

13433.8999 

22.983828 

26746.6912 

27936.9912 

13433.8999 

27936.9912 

1900 

7. 9999999 

3 5424. 19 57 

14233.8997 

23.416366 

29066.8960 

30257.1956 

14233.8997 

30257.1956 

2000 

7.9999999 

162 2 4.1998 

15033.8998 

23.8267 1 2 

31429.2249 

32619.5247 

15033. 8998 

32619.5247 

2100 

7.9999999 

17024.1997 

15833.8998 

24.217034 

33831.5703 

35021.8701 

15833.8998 

35021.8701 

2200 

7. 9999999 

17824. 1997 

16633.8997 

24.589194 

36272.0269 

37462.3267 

16633.8997 

37462.3267 

2300 

7. 9999999 

18624.1997 

17433.8997 

24.944808 

30748.8579 

39939.1577 

17433.8997 

39939.1577 

2400 

7. 9999999 

19424. 1995 

18233.8994 

25.205285 

41260.4844 

42450.7837 

18233.8994 

42450.7837 

2500 

7.9999999 

20224.1997 

19033.8997 

25.611861 

43805.4526 

44995.7524 

19033.8997 

44995.7524 



MO If S » 


H7FRO = -1190.300 

REFERENCE ELEMENTS GASEOUS ATOMS 


T 

f.P/R 

fH-HOJ /rt 

S/R 

-{ F-HOl/RT 

H/RT 

-F/RT 

DELTA H/RT 

-DELTA 

F/RT DELTA H/RT 

-DELTA F/RT 

ion 

1.88R5 

0. 7694 

1.1388 

0.3694 

-5.2203 

6.3590 

0 

0 

-179. 4076 

165.4116 

200 

2. 7264 

1.5874 

2. 7732 

1.1858 

-1.4075 

4.1806 

0 

0 

-89.7512 

75.6567 

298. 15 

2.9835 

2.0089 

3. 9149 

1.9060 

0.0000 

3.9149 

0 

0 

-60.0842 

46. 1333 

300 

2. 9875 

2.0150 

3. 9336 

1.9186 

0.01R5 

3.9151 

0 

0 

-59.7107 

45.7629 

AO 0 

3.1405 

2.2786 

4. 81 52 

2.5365 

0.7812 

4.0339 

0 

0 

-44.6406 

30.8553 

500 

3.2673 

2. 4634 

5. 5297 

3.0663 

1.2655 

4.2643 

0 

0 

-35.5 72 0 

2 L. 9434 

600 

3.4C47 

2.6080 

6.1366 

3.5286 

1.6097 

4.5269 

0 

0 

-29. 5048 

16.0273 

700 

3.5647 

2. 7331 

6.6730 

3.9399 

1.8775 

4.7955 

0 

0 

-25.1493 

11. 8228 

800 

3.7368 

2. 8477 

7. 1601 

4.3124 

2.0990 

5.0611 

0 

0 

-21.8619 

8.6887 

900 

3.9210 

2. 9566 

7.6110 

4.6544 

2.2911 

5.3199 

0 

0 

-19.2853 

6.2684 

923 

3.9653 

2.9812 

7. 71 01 

4. 7289 

2.3322 

5.3779 

0 

0 

-18.7688 

5.7879 

923 

4.0256 

4.1479 

8. 8768 

4. 7289 

3.4989 

5.3779 

0 

0 

-17.6021 

5.7879 

1000 

4.0?56 

4.13R5 

9.1994 

5.0609 

3.5395 

5.6599 

0 

0 

-16.1292 

4.4374 

l 100 

4.0756 

4.1282 

9.5831 

5.4548 

3.5837 

5.9994 

0 

0 

-14. 5243 

2.9778 

1200 

4.0256 

4.1197 

9. 9333 

5.8137 

3.6205 

6.3128 

0 

0 

-13.1868 

1.7731 

1 300 

4.0256 

4.1124 

l 0.2 5 56 

6.1431 

3.6517 

6.6039 

0 

0 

-12.0550 

0.7635 

1400 

4.0256 

4.1062 

10.5539 

6.4477 

3.6784 

6.8755 

0 

0 

-11.0850 

-0.0935 

1500 

4.0256 

4.1009 

10. 8316 

6.7308 

3.7015 

7.1301 

0 

0 

-10.2443 

-0.8290 

1600 

4.0256 

4.0962 

11.0914 

6.9953 

3.7218 

7.3696 

0 

0 

-9.5087 

-1.4661 

1700 

4.0256 

4. 0920 

11.3355 

7.2435 

3.7397 

7.5958 

0 

0 

-8. 8596 

-2.0227 

1800 

4.0256 

4. 0883 

11.5656 

7.4773 

3.75 56 

7.8100 

0 

0 

-8.2826 

-2.5125 

1900 

4.0256 

4. OR50 

il.7832 

7.69R2 

3 .7698 

8.0X35 

0 

0 

-7.7664 

-2.9462 

7000 

4.0256 

4.0821 

11. 9897 

7.9077 

3.7826 

8.2072 

0 

0 

-7.3018 

-3.3326 

2100 

4.0756 

4.0794 

12. 1 861 

8.1068 

3.7941 

8.3920 

0 

0 

-6. 8815 

-3.6785 

2700 

4.0256 

4.0769 

1 2.3 734 

8.2965 

3.8047 

8.5687 

0 

0 

-6.4994 

-3.9897 

2300 

4. 0256 

4.0747 

12. 5524 

8.4777 

3.8143 

B.7381 

0 

0 

-6.1505 

-4.2708 

2400 

4.0256 

4.0727 

12.72 37 

8.6510 

3.8231 

8 .9006 

0 

0 

-5.8308 

-4.5257 

2500 

4.025 f 

4.0708 

12. 8880 

8.8173 

3.8312 

9.0568 

0 

0 

-5. 5367 

—4. 757* 


M fi tf S 1 


T 

r.p 

H-Hn 

S 

-<F-HO) 

0 


0 

0 

0 

100 

3.7530 

1 52.9 

2.2630 

73.4 

200 

5. 41 80 

63C. 9 

5.5110 

471.3 

?98. 15 

5.9290 

l 1 90. 3 

7.7800 

1129.3 

300 

5.9370 

1201.3 

7. 8170 

1143.8 

400 

6.2410 

1811.3 

9.5690 

2016.3 

500 

6.4930 

2447.7 

1 0.9890 

3046.8 

600 

6. 7660 

3109.7 

1 2.1 950 

4207.3 

700 

7.0840 

3802. 0 

l 3.2610 

5480.7 

800 

7.4260 

4527.3 

14.2290 

6855.9 

900 

7.79?0 

5288.0 

1 5.1250 

8324.5 

9? 3 

7.8800 

5468. 2 

1 5.3720 

8674.0 

97 3 

8.0000 

7608.2 

l 7.6405 

8674.0 

moo 

8,0000 

8224.2 

1 8.2815 

L0057.3 

1 100 

8,0000 

9024.2 

1 9.0440 

11924.2 

1200 

8 ,nn00 

9824. 7 

1 9. 7401 

13863.9 

1300 

8.0000 

10624.2 

20.3 804 

15870.4 

1 400 

3 . 0000 

11424.2 

20.9733 

17938.4 

1 500 

3 . onon 

12224.2 

21.5253 

20063.7 

1 600 

8 . oo no 

13024.2 

22.0416 

22242.3 

l 700 

r . oonn 

1 3824. 2 

27.5266 

24471.0 

1 300 

8.0000 

14624.2 

22. 9838 

26746.7 

1 900 

8. no oo 

1 5424. 2 

2 3.4164 

29066.9 

2000 

8. onno 

16224.2 

23.8767 

31429.2 

2100 

8.onoo 

1 7074.2 

24.2170 

338^1.6 

2 200 

8 .0000 

17824.2 

2 4 . 6 8 92 

36272.0 

2300 

8 . 0 A 0 0 

19624.7 

24. 9448 

38748.9 

2400 

8.0000 

19424. 2 

2 5.2 853 

41260.5 

2 800 

8. 0000 

20 224.2 

25.6119 

43805.5 



REFER ENCE 

ELEMENTS 

GASEOUS 

ATOMS 

H 

-1190.3 

OELTA H 
0 

LOG K 

DELTA H 
-35309. 0 

LOG K 

-1037.4 

0 

0 

-35653.0 

71.8374 

-559.4 

0 

0 

-35671. 8 

32.8573 

0.0 

0 

0 

-35600.0 

20.0355 

11.0 

0 

0 

-35598.2 

19.8746 

621.0 

0 

0 

-35485. C 

13.4003 

1257.4 

0 

0 

-35345.4 

9.5299 

1919.4 

0 

0 

-35180.3 

6.9606 

2611.7 

0 

0 

-34984. 7 

5.1346 

3337.0 

0 

0 

-34756.3 

3.7734 

4097.7 

0 

0 

-34492.4 

2.7223 

4277.9 

0 

0 

-34426.4 

2.5137 

6417.9 

Q 

0 

-32286.4 

2.5137 

7033.9 

0 

0 

-32053.0 

1.9271 

7833.9 

0 

0 

-31749. 8 

L .2932 

8633.9 

0 

0 

-31446. 6 

0.7700 

9433.9 

0 

0 

-31143.4 

0.3316 

10233.9 

0 

0 

-30840.3 

-0.0406 

11033.9 

0 

0 

-30537.1 

-0.3600 

11833.9 

0 

0 

-30233. 9 

-0.6367 

12633.9 

0 

0 

-2993 0. 7 

-0.8785 

13433.9 

0 

0 

-2962 7.5 

-1.0912 

14233.9 

0 

0 

-29324.4 

-1.2795 

15033.9 

0 

0 

-29021.2 

-1.4473 

15833.9 

0 

0 

-28718. 1 

-1.5975 

16633.9 

0 

0 

-29415.1 

-1.7327 

17433.9 

0 

0 

-28112.2 

-1.8548 

18233.9 

0 

0 

-27809. 5 

-1.9655 

19033.9 

0 

0 

-27507.1 

-2.0662 
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MG! n 1 ( 


DI SSOC 


KCAL 


TFMP 

T 

298. 15000 

T 

1000. 

R FFNCF 

SPFCTR 

23. 

oi ssnc 

319. 

LOOK 





M FT HOD 

P AMOK 




MGLFCULAP 

WT.= AO. 

370PQ 



OAT A 

WF 

782. 99000 

WF XF 

5.1500700 

DATA 

OF 

0. 1 21 OOOOOF- 05 

BETA 1 0, 

,20000000 E-07 

DATA 

STATWT 

2. 

TO 

3503.20000 

DATA 

RF 

0. 50290000 

ALPHA1 

0 .00460000 

OAT A 

STATWT 

1. 

TO 

20003.570 

DATA 

RF 

0. 57910000 

ALPHA1 

0 , 00 AA9999 


F IN ISH 

H7FRD = 7067.896 


I 1000. T 6000. 


BE 

0.57130000 

ALPHA l 

0.00500000 

1 

WE 

662.69000 

WEXE 

3.8900000 

2 

DE 

0 . 1 1 7200 OOE- 0 5 

BETA1 - 

0.50000000E-07 

2 

WE 

821.91000 

WE XE 

A. 7400000 

3 

DE 

0. 11300000E-05 

BETA1 

0.25000000E— 07 

3 


T 

CP/R 

(H-HO) /RT 

(H-H2981/RT 

S/R 

-( F-HO )/RT 

- ( F-H298 ) /R T 

H/RT 

-F/RT 

298.15 

3. P583739 

3. 5936587 

0.0000000 

25,6626661 

22.0692074 

25.6426661 

7.0835684 

18.5590975 

100 0 

A, 8603669 

6. 16693 93 

3.0755696 

30 .8331639 

26.6862047 

27.7575943 

5. 1875155 

25.6456285 

?nnn 

5.51 R3770 

6. 7383821 

6.202687 2 

3A.5002A56 

29.7618637 

30.2975585 

5.2586702 

29.2415755 

3 n PP 

5.3^24871 

6. 9661 335 

6.6090036 

36.7016397 

31.7355065 

32.0926361 

5.312992 2 

31.3886478 

4000 

9.1 362751 

5. 0267536 

6.7589059 

38 .2012162 

33.1744628 

33.4423099 

5.2868974 

32.9143186 

50ilp 

5.P775P57 

5. 06162 73 

6.8271693 

39.3395185 

34.2980914 

34.5123692 

5.2495425 

34.0899758 

6000 

5.0772868 

5. 0668 7 96 

6.8683167 

AO .2666632 

35 .2177639 

35.3963284 

5.22 03090 

35.0443344 


H7 FRO = 2067.896 


T 

r.p 

H-HD 

H-H290 

S 

-( F-HO) 

- t F-H298) 

H 

-F 

PQ8.15 

7. 6675920 

2129.1299 

o.nooo 

50.958644 

13064. 1901 

15193.3199 

4197.0254 

10996.2944 

inon 

9. 6597626 

8241.0466 

5111.9167 

61.273473 

53032.4268 

55161.5566 

10308. 9420 

50964.5313 

2000 

1 P . 9664499 

13832.7942 

16703.6641 

68.560958 

118289.1221 

120418.2520 

20900.6895 

116221.2256 

300n 

10.5376106 

29606. 9954 

27477.8652 

72.935699 

189200.1055 

191329.2344 

31674.8904 

187132.2109 

60PP 

jo.7071 140 

39957. 8638 

37828.7334 

75.915749 

2 63705.1289 

265834.2578 

42025.7588 

2616 37.2324 

5000 

in. 0903239 

5C093. 1328 

47964.0029 

78.177851 

340796. 1211 

342 925.2 500 

52161.02 83 

338728.2227 

60op 

MGIOK Gi 

lo.n R9R889 

601 76. 772 0 

58047.6416 

80.016315 

419921 .1172 

422050.2422 

62244.6665 

417853.2188 


H7FRD = 

7067.896 





T 

298. 1 5 
* 1000 

C.D/R 

3.8884 

4.3608 

(H-HO) /RT 
3.5935 
4. 1469 

S/R 

25.6427 
30. 8331 

- IF-HO) /RT 
22.0492 
26,6862 

H/RT 

7.0836 

5.1875 

POPP 

5.51 84 

4. 7384 

34.5 0 02 

29.7619 

5.2507 

3000 

5. 30 2 5 

4. 9661 

36. 7016 

31. 7355 

5 . 3 1 30 

4000 

5. 1 363 

5. C768 

38.7012 

33. 1745 

5.2869 

5000 

5.0775 

5. 0414 

39.3395 

34.2981 

5.2495 

6000 

5.0773 

5. 0469 

40. 2646 

35.21 78 

5.2203 



REFERENCE 

ELEMENTS 

GASEOUS 

ATOMS 

-F/RT 

DELTA H/RT 

-OELTA F/RT 

OELTA H/RT -DELTA F/RT 

18.5591 

7.0836 

2.3139 

-153.5179 

141.9372 

25.6456 

0.2026 

6. 7096 

-46.2377 

33.7272 

29.2416 

-0,3038 

6.6584 

-22.9580 

10.6428 

31.3886 



-15.1704 

3.0230 

32.9143 



-11.3602 

-0.7643 

34.0900 



— 9. 1696 

-3.0434 

35.0443 



-7. 8175 

-4.5862 


* A CHANGE 
MG 11 S !— 

IN PHASF 
973.009 

IF 

AN ASSIGNFD 

REFERENCE 

ELEMENT HAS 

OCCURRED BETWEEN 

THIS TEMPERATURE ANO 

THE 

PRECEOI NG 

ONE, 

MGnil G) 
T 

CP 


H-HO 

0 

7179. 1 
8741 .0 

S 

-IF-HO) 

H 

REFERENCE ELEMENTS 
DELTA H LOG K 

GASEOUS ATOMS 
DELTA H LOG K 

* 

29R.15 
1 00‘P 

7.6676 

9.6598 


50.9586 

61.2735 

13064.2 
53037 .4 

4197.0 
10308 .9 

4197.0 1.0049 

561.6 2.9139 


-90959.6 

-91886.4 

61.6425 

14.6475 


7000 

10.9664 


18837.8 

68.5610 

118289.1 

20900.7 

-1207. S 2.8917 


-91247.0 

4.6221 


3000 

10. 5374 


79607.0 

72.9357 

189200.1 

31674.9 



-90442.5 

1.3129 


4900 

10.7071 


39957.9 

75.9157 

263705.1 

42025.8 



-90302. 7 

-0.3319 


5000 

1 0.0903 


50093.1 

78.1779 

340796.1 

52161 .0 



-91111. 6 

-1.3217 


6000 

10.9899 


601 76. 8 

80.0163 

419921.1 

62244.7 



-93212. 5 

-1.9918 

* A 

CHANGE 

IN PHASE 

OF 

AN ASSIGNED 

REFERENCE 

ELEMENT HAS 

OCCJRREQ BETWEEN 

THIS TEMPERATURE AND 

THE 

PRECEDING 

ONE, 


MG1I S ) — 923.000 
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In Q AND THEIR DERIVATIVES 


x 2d z (ln^) terms 

dT 2 


E d i u i r i s i( u i s i - 2 > 

i=l 


-1 


-3/2 


Ml | 6^2 | 120 3 \ 1 
\T + T 2 + T 3 / V 


, d(ln Q fl ) 


dT 


In Q w 


- 2 - 


2u w r w s w (1 + r w s w ) 

2 S 2 (1 

l u l< u l 


+ 2u 2 r 2 s 2 (l + r 2 s 2 ) + S 2 - 2S 


[u. j + 2S - 2) 
1 - r i . 


Remarks 


Type of molecule 


Dia- 

tomic! 


No 

No 


Linear 

poly- 

atomic 


Yes 

No 

No 

Yes 

Yes 

Yes 

Yes 

Yes 

No 

No 

No 

Yes 

No 

No 

Yes 

No 

No 

Yes 

Yes 

Yes 

No 

No 

No 

Yes 

Yes 

No 

No 

No 

Yes 

No 

Yes 

Yes 

No 

No 

No 

Yes 

No 

No 

: Yes 


No 

Yes 


Nonrigid -Rotator Anharmonic -Oscillator 1. 
e Nonrigid -Rotator Anharmonic -Oscillator 2. 


Non- 

linear! 


Yes 

No 


Definitions 


c 2 = hc/k 

g m = statistical weight 

Tq = electronic excitation energy 

dj = degeneracy 

n = number of unique frequencies 

u i = c 2*V' T 
r i= e- u i 
Sj = 1/(1 - !•[) 

V 1 = "e - 2w e x e + 3 - 25 "e y e + H z e 
<7 = symmetry number 

b q = B - — + — + — 

0 e 2 4 8 

A o =A e';E d i a t 
2 i=l 

B 0 =B e^L d i«f 

2 i=l 


-i 


n 


E d i“i 


‘ i=l 


For PANDK, p = 


2D 

c 2 B 0 


and for JANAF 


. ( D X 1 / 2 / 

’ p=4 b* Al c 2 

V B e/ / 


p is given 

01 /3o 0o 4B” 

D = D + — - + — + — ; if not given, D = — ® 
e 2 4 8 e 2 


D = D 


000 


< C 2 B 0> a 4 < C 2 B 0> 
83 = Hi - 


1 12 


480 


2(A q + Bq + C 0 ) 


^0 J 


10(a 2 + B 2 + C 2 ) + 12(A 0 B 0 + A 0 C 0 + B Q C 0 ) 

12 ? a o b o + A 0 B 0 + B o c o + B o c o + A o c o + A o c o\ 

\ c o A o + B o / 


+ 7 


2 n 2 

0 B 0 


\ 2 C 2 

\) C 0 


B 2 c 2\“1 

B o c o 


u w = 2c 2 u 2 /T 

r -e" Uw 
r W “ e 

Sy^ = 1/(1 - Tyy) 

S = (1 + 2r w s w )u w + 2(r 2 u 2 s 2 - 1) 
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TERMS IN lnQ° 


Type of molecule 

Dia- Linear Non- 
tomic poly linear 


d. = degeneracy 

i - Ui 

r i = e 


u i = C ? v \/ T 

s t = 1/(1 -rj) 

n = number of unique frequencies 
Yes No No v, = u> R - 2w R x e + 3.25 u> e y e + 5w e z e 


Yes No No = (a x - a 2 ~ 0. 75 a^/Bp 

«f “ (! + «y) <*y 

No Yes No a t = — - L -tl — ii 


Bn 3=1 2B 0 


JA A A\ 

No No Yes a- = — I + + I 

1 2\ A 0 B 0 C 0/ 

Yes Yes No P. * a.(a i + 1) 

Yes No No For PANDK, a x = (a 1 - 2a 2 - 3.25 a 3 )/Bp and for JANAF, a x = (of x - ot 2 ~ °* 75 a 3^ B e 

/a. X , T/^ 2 /A\ 2 4£\*1 




No No Yes P, 


Yes No No a ix = (-ffg - ~ 

No Yes No a.j = Of-./Bp 

No No Yes = 0 


Yes Yes Yes 6, 


1 0 for i / j 
1 for i = j 


Yes No No a m = -oig/Bp 

Yes No No For PANDK, X xl = '^ e ^ e +4.5 w e y e + 14. 5 w e z e 

and for JANAF, X u = (-u> e x e + 4. 5 o> e y e + 14. 5 


Yes Yes X„ = x.j + (1. 5 dj + 3)y m + y llk 

Mi 

n ^ 

Yes Yes X ir x lj + (d 1+ l)y iij + (d j + l)y ijj+ E Vy, 


k/i 


Yes No No Y m * w e y e + 8w e z e 

No Yes Yes Y (jk - y ljk 


Yes No No G, = 0 


No Yes Yes G, 


_ (0 if i 4 3 

l(gii + B o)/ 3 u i= i 


derivatives: T |d (ln Q®)/dTj = £ ln Q c Sj and T 2 [d 2 (ln Q“)/dT 2 ] 

= ? In Q c . [£ m i u h 1 r hj S hj( r hj S h 1 + X ) ' 2S j + S j ~ Pj] where taQ c=? ln Q c. and ln Q Cj is 

Pi tt m m x 

any term in formulas 8 to 27 which has the formula ln Q c =s (cg/T) J Cj 1^1 r^ s^ where 
Pj = 0, 1, or 2; Cj is a constant; n x and m^ are integer exponents; and h x is an integer 
subscript, and where Sj = £ u hj(*4 + m i r h i s hj) “ Pj- 
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Ill I I llllllll 


TABLE II. - Concluded. 


Formula 

Method 

number 

PANDK a 

or 

JANAF b 

NRRA01 C 

NRRA02 d 

15 

No 

Yes 

Yes 

16 

No 

Yes 

Yes 

17 

No 

Yes 

Yes 

18 

No 

No 

Yes 

19 

No 

No 

Yes 

20 

No 

No 

Yes 

21 

No 

No 

Yes 

22 

No 

No 

Yes 

23 

No 

No 

Yes 

24 

No 

No 

Yes 

25 

No 

No 

Yes 

26 

No 

No 

Yes 

27 

No 

No 

Yes 


InQ™ terms e 


24c, 


u)Z rf sf (diatomics only) 

rjx CUll 

—Jl 2g ii r i s i 2(1 - 2a i r i s i ) 


-? S d i (d i + V (1 + V a iVi r j s h 

j=l 

K ?) 2 | i^ (d i + V (1 + V x ii r i r j s H 

H 

iS ) 2 li ®«» wi r i r ^ 


j=i 

(-) 2 " 

2 'T ' i=l 

j=l 

k=j 

/C ^2 


K ?) S ®iik x ii Y ijk r i r i r k s i s f s k 
j=i 
k=l 

“(“) ^ ^ijkje x ij Y ikj? r i r j r k r i s i s j s k s f 

j=i 

k=l 

&=k 

/c 0 \ 2 n 


Cr) f 1 g U r l S i( 1 + 8r i + r i 2 ) 

(^) 2 2g ii X ij r i r j S i s j t 1 + 76 ij + r l (1 + 56 ij>] 


j=l 

v 2 n 


K ?) ^ 4a i [ x u d i ( d i + i ) ] 2r i 5s f 
2 (^) 2 fl ®ij a i X ij r i r ) S i S f 


j=l 
\ 2 n 


2 (if) i?i ®i)k a i X ij X ik r i r j r k 8 i S j S k (1 + r i> 


i=i 

k= 1 

„ 9 n 


J(f) fl ^ijk a i X ij X ik r i r i r k s f s f s k 


j=l 

k=l 


a Rigid -Rotator Harmonic -Oscillator approximation. 
b Modified Pennington and Kobe method. 

^onrigid -Rotator Anharmonic -Oscillator 1. 
d Nonrigid -Rotator Anharmonic -Os cilia tor 2. 
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TERMS IN In 



pj « 0, 1, or 2; Cj is a constant; nj and are integer exponents; and h| is an integer 
subscript, and where Sj * ]C u h j - pj. 
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TABLE m. - BRIEF DESCRIPTION OF CONTENTS OF INPUT CARDS 


Type of card 

Contents 

Is card 
optional? 


General data 


CONSTS 

ATOM 

LISTEF 

Physical constants, hc/k, R, and S c (eqs. (4) and (5)) 

Chemical symbol, atomic weight, and reference form of each element. (If FILL 
option is used, also include the coefficient b in equation (8) and £ gj in 
equation (8) for the ground state). 

Code in card columns 1 to 6 only which calls for listing the contents of the binary 
EF data cards that are processed after the LISTEF card 

No 

No 

Yes 

EFDATA 

Chemical formula for reactant (monatomic gas or element in its reference form), 
the Hq value, the melting point if any, and the number of temperatures for 
which there are binary EF data following this card 

Yes 

Binary EF 
data 

Enthalpy and free energy data for the reactants. These data for each reactant 
consist of a set of column binary cards; the number of cards depends on the 
amount of data. Each set must be preceded by the EFDATA card which 
identifies it (see previous card). 

Yes 


Specific data 


Formula 

- 

Chemical formula of species (This card may also contain a heat of formation and 
its corresponding temperature) 

No 

TEMP 

Temperature schedule 

Yes 

REFNCE 

Numbers to identify input data sources 

Yes 

EFTAPE 

Code in card columns 1 to 6 only which calls for EFDATA and corresponding 
binary EF data cards to be punched and for the data to be put on tape 

Yes 

LOGK 

Code in card columns 1 to 4 only which calls for tables of thermodynamic 
properties including AH^, and log K 

Yes 

LSTSQS 

Temperature intervals for a least -squares fit, temperature exponents in the 
polynomial, and a temperature where the data are to be constrained 

Yes 

INTERM 

Code in card columns 1 to 6 only which calls for intermediate output 

Yes 

DATE 

Date which will be punched with least -squares coefficients 

Yes 

METHOD 

A method code which specifies the method for obtaining thermodynamic func- 
tions; for example, RRHO or PANDK for diatomic or polyatomic gases, 
or READIN for reading in the functions directly 

No 

DATA 

Data required by method given on METHOD card 

No 

FINISH 

Code in card columns 1 to 6 only which indicates the end of a set of specific 
data 

No 
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TABLE IV. - CONTENTS OF FORMULA CARDS 


Labels 2, 3, 

or 4 

Numerical value 

Comments 

HF298 " 


An assigned enthalpy 
rt 298. 15 

Numerically equal to 
heat of formation 
at 298. 15° K 

ASINDH 


An assigned enthalpy, H^, 


DISSOC 

►(a) 

Dissociation energy 
(d° or -AH^) 


DELTAH 


Heat of formation from the 
assigned reference 
elements 


IPATOM b 
(ions only)^ 


Heat of ionization from the 
electron and neutral atom 


INVCM 


(blank) 

Units are cm'Vmole 

CAL 


(blank) 

Units are cal/mole 

KCAL 

>-(a) 

(blank) 

Units are kcal/mole 

EV 


(blank) 

Units are eV/mole 

JOULES 


(blank) 

Units are J/mole 

T 


Temperature 

Not required with HF298 


a Use only one. 

b The following are examples of IPATOM: 

Cl + : Cl + IPATOM = Cl + + e" 

IPATOM = 104995.46 cm' 1 (refs. 18 and 20) 
Cl ++ : Cl + IPATOM = Cl ++ + 2e' 

IPATOM = 296995.46 cm" 1 (refs. 18 and 20) 
Cl": Cl + e" + IPATOM = Cl" 

IPATOM = -3. 613 eV (ref. 34). 



TABLE V. - CONTENTS OF OPTIONAL SPECIFIC DATA CARDS 


Card col- 
umns 1 to 6 

Labels 
1, 2, 3, or 4 

Numerical value 

Comments 

REFNCE 

Any alpha- 
numeric 
characters 

Any numbers within the 
machine capabilities 



EFTAPE 

(blank) 

(blank) 

Code calling for the Hq value and 

h£-h° -( f t- h o) 

the 1 0 and v 1 u/ 

RT RT 

data to be put on tape and punched 
for future log K and AH^, calcu- 
lations 

LOGK 

(blank) 

(blank) 

Code calling for AH^, and log K 
calculations 

LSTSQS 

T 

Temperature (°K) at 
the beginning or end of 
interval to be fit 

Card calls for a least-squares fit 


EXP 

Temperature exponent 

q i values in equation (10) 


TCONST 

Temperature constraint, 
°K 

Calls for the data at this tempera- 
ture to be fitted exactly. Numeri- 
cal value of T must be the same 
as some value in the T interval 
schedule. If omitted, it is assumed 
to be the melting point, if there is 
one; otherwise, 1000° K. 

INTERM 

(blank) 

(blank) 

Calls for intermediate output data 

DATE 

(any six op- 
tional char- 
acters) 

(blank) 

Punches the label as the last word on 
the binary least-squares coeffi- 
cient cards 

TEMP 

T 

Temperature, °K 

This may be a single value or the 
beginning or end of an interval 


I 

Temperature increment, 
°K 

This must be preceded by a lower and 
followed by a higher T value. 

(See section TEMP card(s). ) 
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TABLE VI. - CONTENTS OF METHOD CARDS 


Method code 
(any label) 

Type of 
species 

Labels 
1, 2, 3, or 4 

Numerical 

value 

Comments 

READIN 

All species 


(blank) 

Read in functions directly. 



H298H0 

ttO ttO 

^298. 15 ~ 

Used in obtaining H^ - Hq values when H^, - Hggg lg values are 
given on DATA cards 



MELTPT 

Melting point 

Should be included when a set of specific data has both solid and liq- 
uid phases 

COEF 

All species 


(blank) 

Calculate functions from empirical equations. 



REDUCE 

(blank) 

Coefficients on DATA cards are those of equations (10) to (12) 
divided by R. 



MELTPT 

Melting point 

See MELTPT under READIN. 



DELTAH 

Heat of transi- 
tion 

Used between two phases of the same species; code is on METHOD 
card of second phase 



DELTAS 

Entropy of 
transition 

May be used in lieu of a heat of transition (see label DELTAH) 

FDCEDN 

Monatomic 

gases 


Highest prin- 
cipal quantum 
number to be 
included in 
calculations 

All energy levels whose principal quantum number is less than or 
equal to this number will be included 



FILL 

(blank) 

Missing energy levels will be estimated and included as discussed 
in the section Inclusion of predicted levels 

ALLN 

Monatomic 

gases 


(blank) 

Include all levels given in input. 



FILL 

(blank) 

See FILL option under FIXEDN. 

TEMPER 

Monatomic 

gases 


(blank) 

Cut off all levels above T ’reduced' T ionization potential (See section 
Internal Partition Function for Monatomic Gases. ) 



FILL 

(blank) 

See FILL option under FIXEDN. 

RRHO 

Diatomic and 
polyatomic 
gases 


(blank) 

Rigid -rotator harmonic -oscillator approximation (See table I.) 

PANDK 

Diatomic and 
polyatomic 
gases 


(blank) 

Calculation method of reference 3 (See tables I and II. ) 

JANAF 

Diatomic and 
polyatomic 
gases 


(blank) 

Calculation method of reference 2 (See tables I and II. ) 

NR RAO 1 

Diatomic and 
polyatomic 
gases 


(blank) 

Calculation method of references 30 and 31 (See tables I and n. ) 

NRRA02 

Diatomic and 
polyatomic 
gases 


(blank) 

Same as NRRHOl with some higher order corrections (See 
tables I and n. ) 

. 
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to 


TABLE YD. - CONTENTS OF DATA CARDS 


Method 

Labels 
1, 2, 3, or 4 

Numerical value 

Comments 

READIN 

T 

Temperature in °K 

One value on each card 


CP 

c p 1 

1 





l 

Either one of these values on each card 

CP/R 

, 

C°/R J 




H-HO 

Ht' H 0 




H-H2 

TjO TjO 

H T ' “298. 15 



1 H-HO/T 

(H° - H°)/T 






Any one of these values on each card 

H-H2/T 

1 

< H T- H 298.15>/ T 



H-HORT 

(H° - Hg)/RT 



i H-H2RT 

( H T - H 298. 1 5 ) /RT J 



S 

s° 1 




S/R 

s^/R 


! 


-F-HO 

-(F^ - Hq) 



1 

-F-H2 

-( F T ' H 298. 15^ 





> 

Any one of these values on each card 

-FHO/T 

-(F° - Hq)/T 



-FH2/T 

-( F T- H 298.15)/ T 



-FHORT 

-(F° - Hq)/RT 


-FH2RT 

-< F T- H 298.15>/ RT . 


COEF 

See comments 


1 — r 

First card may be the same as aforementioned READIN card with C° or C°/R value 



omitted. The data will be used in obtaining the integration constants, a r+1 and a p+ 2 , 



in equations (10) to (12). 
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T 

Temperature at beginning 
or end of temperature 
range 

Two T labels must precede exponents and coefficients for the temperature range. 

Ei(i=l,2,., 
or 10) 

. q. in equation (10) 



Ci(i = 1, 2, , , 
or 10) 

a. or a./R inequa- 
tion (10) 

a./R with REDUCE code in METHOD card 


CH a r+1 (eq. (11)) 

CH/R a r+1 /R (eq. (11)) 

„ > Use one if a_ , has not been set by previous enthalpy value. 

CH-HO a r+1 - H° (eq. (11)) r+1 

CHHO/R (a r+1 - Hq)/R (eq. (11)) __ 

CS a r+2 (eq. (12)) "1 

f Use one if a„ , 0 has not been set by previous entropy value. 
CS/R a r+2 /R(eq. (12)) J r+2 

TPUNCH Temperature value to be Calls for cards to be punched (See appendix E) 

punched on coefficient 
cards 


FKEDN, 
ALLN, or 

o 

IP 

Ionization potential in 

-1 

cm 

Required only with TEMPER 

TEMPER 

J value 
m 

e m /hc in cm -1 (eq. (7)) 

J value 
m 




(1) does not have to be right- or left-adjusted 

(2) may be integer, 0, or decimal number (if decimal, it can have only 5 or 0 

to right of decimal point) 

(3) must be punched if 0 

a For FILL option (METHOD card) or FDCEDN, the principal quantum number for the data on each card must be in card columns 79 


to 80, right -adjusted. 
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TABLE VH. - Concluded. CONTENTS OF DATA CARDS 


Method 


Labels 
1, 2, 3, or 4 


Numerical value 


Comments 


RRHO, 
PANDK, 
JANAF, 
NRRH01. or 
NRRH02° 


SYMNO 


Symmetry number 


Taken to be 1 if omitted 


STATWT 


Statistical weight 


Taken to be 1 if omitted 


TO 


Use with excited electronic state. 


BO 


B r 


BE 


B„ 


B e> B 0’ or % value must be included for all molecules. 


See comments for label Bq. Use only for linear molecules. 


WE 



1 WEXE 

w e x e 


WEYE 

w e y e 


WEZE 


y Diatomics only 


e e 

WX4 

Anharmonic con- 


stant one order 


1 

1 

higher than u> e % e 


ALPHAE 

| > 

j 

ALPHAi, (i < 3) 

1 

ct ^ (See comments 
for definition. ) 

i Diatomics only. B y = B 0 - + + ^ 


ALFABi (i < 6) 
ALFAij (i, j < 6) 


Linear polyatomics only. Bj- y j = B g 


Q ij 



ALFAAi (i < 6) 


n<6 / , \ 

-144 


Nonlinear molecules only. Aj- y j = A 0 

i=l 

where and d i are the vibrational quantum number and degeneracy respec- 
tively for the i th fundamental frequency 


n<6 


ALFABi (i < 6) 


B 

a i 


Nonlinear molescules only. B^ y j = B g - 144 

i=l 
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ALFACi (i s6) 

•? 

n<6 

Nonlinear molecules only. Cj- y j = C e - ^ 

i=l 

DE 

D e 

Diatomics only 

BETAi (i < 3) 

*1 

n<3 

Diatomics only, where D y = T> q j8j(v + 1/2)* 

i=l 

Vifdj) or Vi 
(i £ 20) 

i/jCdj) or i>. 

d i is degeneracy (an integer) of and may be omitted when = 1 

Xij (i < 6, 

j — 6) 

x ij 

Polyatomics only 

Yijk (i < 6, 
j s 6, k<6) 

yijk 

Polyatomics only 

WO 

Wq (Fermi resonance 
constant) 

Linear polyatomics only 

Gii (i < 6) 

g ii 

Linear polyatomics only 

DO or D000 

D o or D ooo 

Polyatomics only 

: RHO 

P. °K _1 

J Polyatomics only 


AO 

A o 

An I A or Aq must be included for all nonlinear polyatomics. 


CO 

c o 

An I q or Cq must be included for all nonlinear polyatomics. 


IB 

I B X10 39 , (g)(cm 2 ) 

See comments for label Bq. 


IA 

I A X10 39 , (g)(cm 2 ) 

See comments for label Aq. 


IC 

IcXlO 39 , (g)(cm 2 ) 

See comments for label Cq. 

t- 

°For excited electronic states, 

the data for each state should be put on separate cards with an identifying number in card columns 79 


to 80. Data cards for each state must be grouped together. 
















TABLE VUI. - PUNCHED COEFFICIENT CARDS 


Binary 

Card 1 



Card 2 


Cards 3 to 5 as required 

word 




(2 or more intervals) 


(5 to 9 intervals) 

number 









1 

Machine assigned storage 

*\ 






2 

Machine assigned storage 







3 

First 6 characters of formula 


► Same as card 1 



^Same as card 1 

4 

Second 6 characters of formula 







5 

Ionization potential, 

if any 







6 

Lowest T in intervals or 

a 2 (Second interval) 

Lowest T in " 



melting point if liquid 





interval 


7 

Highest T in intervals or 

Fourth highest T 


Highest T in 



melting point if solid 





interval 


8 

Second highest T 


Third highest T 


a i 


9 

Highest T in interval 

a i 


a 2 

y Next 

10 

a i 


a 2 


Third 

a ? 


interval, 

11 

a 2 


ar 


y interval, 
if any 

a ^ 


if any 

12 

a 3 


a 4 



a 5 


13 

a 4 

y First 

a 5 


a r+l 


14 

a 5 

interval 

a r+l 


a r+2 J 


15 

a r+l < eq - 


a r+2 


Lowest T in ^ 









interval 


16 

a r+2 (eq - 12) 


Fifth highest T ^ 


Highest T in 









interval 


17 

Third highest T 


Fourth highest T 


a i 



18 

Second highest T 


a i 



a 2 


^ Next 

19 

a i 


a 2 


Fourth 

a a 


interval 

20 

a 2 

Second 

a a 


► interval, 

a 4 



21 

a 3 

y interval, 
if any 

a 4 


if any 

a 5 



22 

a 4 


a E 



a r+l 


23 

a 5 


a r+l 


a r+2 


24 

a r+l ^ 


a r+2 







CIO Initialize 
genera! data. 



Figure 1. - General flow of program. 


NASA- Langley, 1961 * E-3420 
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